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Der zweite Band von „ProDOS für 
Aufsteiger“ ist wieder ein typisches 
Tips- und Tricks-Buch, das viele 
nützliche Utilities und Hilfsroutinen 
enthält, die dem Applesoft- und As- 
semblerprogrammierer den Umgang 
mit ProDOS erleichtern sollen. 
Zunächst wird eine bewußt leichtver- 
ständliche Einführung in die 
Applesoft-Programmierung unter 
ProDOS gegeben, die sich insbeson- 
dere an diejenigen Leser wendet, die 
das alte DOS 3.3 nur noch „am 
Rande“ kennengelernt haben. 

Im Anschluß daran wird gezeigt, wie 
man einige Unzulänglichkeiten des 
BASIC.SYSTEMSs durch Tricks behe- 
ben kann, z. B. Einlesen von Strings 
mit Komma und Doppelpunkt, Laden 


Den Hauptteil des Buches bilden so- 
fort einsatzfähige Utilities, die alle 
klassischen „Pflichtübungen“ ab- 
decken, z. B. Dateileseprogramme 
mit ASCII- und Hex-Dump, Dateiko- 
pierprogramme, Diskettenformatier- 
und -kopierprogramme, Disketten- 
vergleichsprogramme, Konvertie- 
rungsprogramme (DOS 3.3 nach 
ProDOS), Bad-Biock-Programme 

u. a. Zur Anwendung dieser Utilities 
sind keinerlei Assemblerkenntnisse 
erforderlich. 


und Speichern von Zahlen als Binär- 4 N 
dateien, Simulierung des fehlenden +. age 
MON-Befehls u. a. ® Sr 














Das Gesetz der Sättigung hat jeder schon 
am eigenen Leibe verspürt. In der Psycho- 
logie sprechen wir von abnehmender Reiz- 
wirkung, in der Wirtschaftwissenschaft von 
Marktsättigung: Die erste Portion eines 
saftigen Steaks lassen wir uns einiges 
kosten; auch das zweite Tournedos ist 
vielen ihr Geld wert; aber nach dem dfritten 
Stück haben wir sprichwörtlich „die 
Schnauze voll" — die Sättigung ist erreicht. 


Was wir zur Zeit in der Mikrocomputer- 
branche erleben, ist sowohl eine psycho- 
logische als auch eine ökonomische Sätti- 
gung: psychologisch deshalb, weil der 
Reiz des Neuen verflogen ist, ökonomisch 
deshalb, weil der Mikrocomputer inzwi- 
schen in vielen Büros und Wohnungen 
steht. Wie an den anderen Pionieren der 
Mikro-Ära ist auch an der Firma Apple 
diese „Sättigung“ nicht spurlos vorüber- 
gegangen: Man spricht bereits von weite- 
ren Entlassungen — auch In Deutschland —, 
und Übernahmegerüchte halten sich hart- 
näckig in allen größeren Wirtschaftsblät- 
tern. Ein durchgreifendes Revirement in 
der Führungsetage in Cupertino hat mitt- 
lerweile sein zweites Opfer gefunden: 


editoriAal 


Steven Jobs wurde nahegelegt, vom Vor- 
stand in den Aufsichtsrat überzuwechseln 
— ein probates Mittel, um unliebsame 
Manager aufs Abstellgleis zu schieben. 
Wie berichtet, hatte Steve Wozniak bereits 
vorher seinen Hut genommen. Damit sind 
die beiden legendären Gründer des Apple- 
Imperiums ins zweite Glied zurückgetreten. 


Apple war die einzige Mikrocomputerfirma, 
bei der der Begriff des „Personal“-Com- 
puters noch eine andere, tiefere Bedeu- 
tung hatte, nämlich die Bedeutung des von 
einer Persönlichkeit geschaffenen und ge- 
prägten Mikrocomputers, wobei ich hier 
namentlich an Steve Wozniak als den tech- 
nischen Kopf des Zweigespanns denke. 
Dies wird sich nun ändern, denn die Kopp- 
tung Apple/Sculley hat einen schaleren 
Sinn als die Assoziation Apple/Wozniak. 
Woz stand für Genie. Sculley steht für 
Pepsi. Nach den sieben fetten Jahren kom- 
men jetzt die sieben anderen. Da ist kein 
Platz mehr für geniale Eigenbrötler — oder 
um mit G. B. Shaw zu sprechen: „Genius 
demanding bread is given a stone ...“ 


nn an 


Ulrich Stiehl 





Impressum 


Peeker 

Magazin für Apple-Computer 
2, Jahrgang 1985 

ISSN 0176-9200 

© für den gesamten Inhalt 
einschließlich der Programme 
Dr. Alfred Hüthig Verlag, 
Heidelberg 1985 


Verleger und Herausgeber: 
Dipl.-Kfm. Holger Hüthig 
Geschäftsführung Zeitschriften: 
Heinz Melcher 


Chefredakteur: 

Ulrich Stiehl (us) Tel, (06221) 489352 
(Bitte nur in redaktionellen Angelegenheiten 
anrufen) 


Anzeigenleitung: 

Jürgen Maurer, Tel, (06221) 489218 
z, Zt. gilt Anzeigenpreisliste Nr, 3 
Vertriebsleitung: 

Ruth Biller, Tel. (06221) 489280 
Produktionsleitung: Gunter Sokollek 
Gestaltung: Rainer Schmitt 

Titelbild: Creative Computer 

Service, Mannheim 








CHER 


MAGAZIN FÜR APPLE-COMPUTER 





Technik Fakultäten 
Testprogramme für Apple-Il- von Roland und Manfred Fietkau 56 
Diskettensysteme Mecki 
Analyse von Disketten, Laufwerk sun 
und Controller Microsoft Basic leicht geMACht 
von Dipl.-Ing. Gerhard Berg 6 Teil 4: Die Grafik 

von Pit Capitain 60 
ProDOS 
ProDOS für Anfänger Hobby 
Teil 3: Geheimnisse von BSAVE Grafik-Demonstrationen 
und BLOAD von Ralf Knoke 67 
von Ulrich Stiehl 18 Zeichenjagd. Ein Einzeiler 
Grafik von Hans-Peter Lendle 69 
Graf-quattro Teil 3: Tricks über Tricks Testberichte 
von Nino G. Barbieri 24 Die Polaroid-Foto-Systeme 
Double-Lores-Applesoft- Erweiterungen getestet von Thomas Bühner 
von Karl-Walter Bott 32 und Prof. Dr. Klaus Hausmann 71 
CP/M Das Bildverarbeitungssstem MAGIC 74 
Adreßverwaltungsprogramm mit dBASE Il Siemens entdeckt neue Primzahl 74 
von Ing. (grad.) Ernst Fischer 0 TRICARD-Multifunktionskarte 
Wordstar druckt internationale für Apple Ile 74 
Zeichensätze MEON: 

- h 

Frei definierte Sonderzeichen ohy Sue ae IUESUISC 2 
auf dem FX-80 nutzen Microfloppy mit 2 x 1 MByte 76 
von Dipl.-Ing. H. A. Rohrbacher 45 ProDOS-Debugger BUGBYTER 76 

Beagle Graphics 
ne getestet von Rolf W. Becker TR 
Tips und Tricks in Pascal 
Teil 1: Die versteckte Prozedur „Idsearch“ Errata 

Dieter Geiß 48 

zz SUPERDUMP und Apple IIc 50 
Assembler RAM.FRE 70 
Assembler-Pseudo-Opcode- Diversi-DOS 2-C 68 
Referenztabelle 
von Dr. Jürgen B. Kehrel 51 Inserentenverzeichnis 78 


m pkuekh sperren 


Bankkonten: Landeszentralbank Heidel- 
berg 67 207 341; BLZ 67200000; Deutsche 
Bank Heidelberg 02165041; BLZ 

672 70003; Bezirkssparkasse Heidelberg 
20451, BLZ 67250020, 


Verlag: Erscheinungsweise: 12 Hefte jährlich, 
Dr. Alfred Hüthig Verlag GmbH Erscheinungstag jeweils 1 Woche vor Monatsbeginn. 
Im Weiher 10, Postfach 102869 Jahresabonnement DM 72,-, einschließlich MwSt, 
6900 Heidelberg im Inland portofrei. Einzelheft DM 6,50 
Telefon (0 62 21) 489-0 Vertrieb Handel: 
Telex 4-6 1727 hued d MZV — Moderner Zeitschriften Vertrieb GmbH 
Breslauer Str. 5, Postfach 1123, 
8057 Eching b. München, 
Tel. 089/319 1067, Telex 0 522 656 


Zahlungen: an den Dr, Alfred Hüthig Verlag 
GmbH, D-6900 Heidelberg 1: Postscheck- 
konten: BRD: Karlsruhe 485 45-753; 
Österreich: Wien 7555888; Schweiz: Basel 
40-24417; Niederlande: Den Haag 145728; 
Italien: Mailand 47718; Belgien: 

Brüssel 723026; Dänemark: Kopenhagen 
34969; Norwegen: Oslo 994 24; 
Schweden: Stockholm 5477 76-5 


Herstellung: Heidelberger Verlagsanstalt 
Printed in Germany 





Testprogramm fur 
Apple-ll- ren 
Diskettensysteme 










Analyse von Disketten, Fo 
Laufwerk und Controller Au 


un 
hr 


6 Peeker 8/85 


Im Rahmen der Artikelserie über Disket- 
tensysteme bringen wir in dieser Ausgabe 
ein Programm zum Testen des Apple-Dis- 
kettensystems, Das Programm ist ein un- 
erläßliches Werkzeug für alle, die sich nä- 
her mit Floppy-Laufwerken beschäftigen. 


Insbesondere wird das Programm für fol- 
gende Anwendungen gebraucht: 


Test aller Controller- und Laufwerk- 

Funktionen, 

— Justage von Diskettenlaufwerken, 

— Fehlersuche und Reparatur von Lauf- 
werken und Controllern, 

— Test von Disketten, 

- Anpassung von Nicht-Apple-Lauf- 
werken, 

— Funktionsanalyse von Controller und 

Laufwerk. 


Dazu verfügt das Programm über folgende 
Eigenschaften: 


— einfache Bedienung durch Menüsteue- 
rung, 

- Fehlermeldungen bei Bedienungsfeh- 
lern, 

— grafische Ausgabe zur besseren An- 
schaulichkeit, 

— leichtes Oszillographieren durch spe- 
zielle Trigger-Signale und Betriebs- 
arten, 

— Laden des Programms von Diskette 
oder Kassette, 

— Betrieb aller Controller, die bus-seitig 
Apple-kompatibel sind, 

— Betrieb aller Disketten-Laufwerke bis zu 
80 Spuren. 


1. Eingabe und Start des Pro- 
gramms 


Da das Programm die hochauflösende 
Grafik benutzt, muß dafür gesorgt werden, 
daß das Programm oberhalb der Grafik- 
Seite 1 (ab $4000) im RAM liegt. Um dies 
zu erreichen, müssen als erstes die fol- 
genden Befehle eingegeben werden: 


POKE 104, 64 
POKE 16384, 0 
NEW 


Mit dem Befehl POKE 104, 64 wird der 
Anfang des BASIC-Programms von $0800 
nach $4000 verschoben. Wegen einer Ei- 
genart des Applesoft-Interpreters muß das 
erste Byte des Programmspeicherbe- 
reichs zu Null gesetzt werden. Dies ge- 
schieht mit dem Befehl POKE 16384, 0. 
Mit dem Befehl NEW werden alle anderen 
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DISKTEST.B 


9BBB: 
9892: 
9094: 
Sad6: 
9988: 
9OBA: 
9AD: 
9üßr: 
Söll: 
9813: 
9915: 
9817: 
9819: 
9ß1lA: 
9ß1C: 
9ß1lE: 
sa2B: 


9921: 
9923: 
9925: 
9d2T: 
SORA: 
9B2D: 
9939: 
9831: 
9932: 
9933: 
9934: 
9035: 


A6 
A9 
85 


Aa 
BD 
19 
c5 
Fo 
E6 
DB 
E6 
CB 
DB 
E6 
D® 
6g 


A6 
24 
AS 
DD 
9D 
DD 
d8 


BA 
EA 
d8 


80 CD 


FA 
FE 
FB 
8D Ch 
sF cp 
sc co 


OOOJO0OTAGTDH 


PH 
Ma 


NDHrbHrHHrHrkHp 
a0 0 Jo k Wu m 


DDDNDTD 
ou hm HH 


NND DD 
= 00 


No Ol 
QNDNDH 


RAU N Go N N 
OHG nn BBUDHEODS9 OT IR 


ab 
a0 


ao 
DH 


sa o 0 
J]900 RA 
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*Unterprogramme zum Diskettensystem-Testprogramm 
»von Dipl.-Ing. Gerhard Berg — 2.3.1985 


* 

ORG 
* 
SLOT EQU 
* 


$9R9D 


$FA 


*Positionier-Variablen 


ZIELSP EQU 
AKTSP EQU 
BERUHZ EQU 
SCHRITT EQU 
ALTSP EQU 
* 


SLOT+I 
ZIELSP+1 
AKTSP+1 
BERUHZ+L 
SCHRIELTIL 


*Schreib-/Lese-Variablen 


MUSTER EQU 
BYTEL EQU 
BYTEH EQU 
FEHLERL EQU 
FEHLERH EQU 
MODE EQU 
MODEA EQU 
INDEX EQU 
SE 


SLOT+1 
MUSTER+1 
BYTEL+I 
BYTEH+l 
FEHLERL+1 
FEHLERL 
MODE 
MODE 


»Interne I/O-Adressen 


TASTDAT EQU 
LAUTSP EQU 
TRIGGER EQU 
* 


$cHHRB 
$0938 
$cdAap 


:Slot-Nr. x» $1% 


;Zielspur 

‚Aktuelle Spur 
;Beruhigungszeit in msec 
;Schritt-Zähler 

;Alte {vorige) Spur 


;Flußwechsel-Muster 
;Byte-Zähler 

(2'er Komplement) 
;Fehler-Zähler 


‚Schreib-Modus 
‚absolute Adressierung!! 
;Index-Zähler 


‚Tastatur-Daten-Register 
‚Lautsprecher 
Trigger (Utility Sstrobe) 


x»Disketten-Controller-Adressen 
Effektive Adresse = Basis-Adresse + Slot-Nr. * $1% 


CONTR EQU 
Q6AUS EQU 
O6EIN EQU 
Q7AUS EQU 
Q7EIN EQU 


$cH89 
$CASC 
$CQ8D 
$cö8E 
$CH8F 


Funktion 


Lesen 


;Controller-Basis-Adresse 
;Q6 ausschalten 
‚96 einschalten 
;97 ausschalten 
;Q7 einschalten 


Schreibschutz prüfen und 
Controller initialisieren 


Schreiben 


Datenregister laden 


»Lese-/Prüf-Routine 


* 

LESEN LDX 
LDA 
STA 
STA 
LDY 

LESEN1 LDA 
BPL 
CMP 
BEQ 
ING 
BNE 
INC 

LESEN2 INY 
BNE 
ING 
BNE 
RTS 


gem mono 


# 


SLOT 
u) 
FEHLERL 
FEHLERH 
BYTEL 
QEAUS,X 
LESEN] 
MUSTER 
LESEN? 
FEHLERL 
LESEN? 
FEHLERH 


LESEN] 
BYTEH 
LESEN] 


:X = Slot-Nrao, * $10 
;Fehler-Zähler löschen 


:Y = Byte-Zähler low Byte 
;Byte lesen 

‚warten bis Byte komplett 
‚mit Muster vergleichen 
;beide gleich -> Sprung 
‚Fehler-Zähler erhöhen 


‚Byte-Zähler erhöhen 
(2'er Komplement) 


;Byte-Zähler = ® -> Ende 


Zn en EEE EEE SE TE EEE EB u m 


*Schreib-Routine 


* 
»MODE: Bit 7 
x Bit 7 
* Bit 7 
* 
SCHREIB LDX 
BIT 
LDA 
CMP 
STA 
CMP 
PHP 
PLP 
NOP 
NOP 
SCHB PHP 


FLR 


%.,Bıl.6 
9, Bit 6 
I, Bil 6 


| 


SLOT 
MODE 
MUSTER 
Q6EIN,X 
O7EIN,X 
Q6AUS,X 


Öö -> dauernd schreiben 
1 -> 1 Spur schreiben 
I == 1 Spur + Index 


:X = SIot-Nr,. # 510 

:Y Bit setzen = Bit 6 

‘A = Flußwechselmuster 
Controller Initialisieren 
;:Schreiben einschalten + 
,.. erstes Byte ausgeben 





Vektoren initialisiert, so daß ein neues Pro- 
gramm eingegeben werden kann, 


Danach muß das gesamte BASIC-Pro- 
gramm eingetippt werden. Wenn die Ein- 
gabe der Kommentare eingespart werden 
soll, muß trotzdem zumindest die Zeilen- 
nummer und „REM“ eingegeben werden, 
da oft (insbesondere beim Anfang von Un- 
terprogrammen) auf diese Zeilen gesprun- 
gen wird. Die Zeilen, die nur einen Dop- 
pelpunkt enthalten, dienen nur der besse- 
ren Übersichtlichkeit und können ohne 
weiteres weggelassen werden. Das As- 
semblerprogramm braucht nicht extra ein- 
gegeben zu werden, da es In Form von 
DATA-Befehlen im BASIC-Programm be- 
reits enthalten ist. Dies wurde so einge- 
richtet, um ein einfaches Laden von Kas- 
sette zu ermöglichen, falls das Diskeitten- 
system defekt ist. Nach dem Programm- 
start wird über eine Prüfsumme getestet, 
ob die „DATA“-Befehle, die das Assem- 
blerprogramm enthalten, richtig eingege- 
ben wurden. 

Wer die Arbeit des Eintippens sparen will, 
Kann das Programm auch auf der Peeker- 
Sammeldiskette beziehen. 


Zur Anpassung an das verwendete Lauf- 
werk können die folgenden Zeilen geän- 
dert werden: 


— Zeile 10140 definiert die Spurzahl des 
Laufwerks (z.B. 35, 40, 77 oder 80). Der 
maximale Wert für AS ist 80. 

— Zeile 10150 definiert die Anzahl der 
Schrittmotor-Phasen pro Spur. Dieser 
Wert ist normalerweise 2. 


— Zeile 10160 definiert die Beruhigungs- 
zeit (s. Peeker 3/85, S. 20), die das Pro- 
gramm nach jeder Positionierung wartet, 
bevor es mit dem Schreiben oder Lesen 
anfängt. (Hinzu kommt noch die Ausfüh- 
rungszeit des BASIC-Programms.) BZ 
wird in Millisekunden angegeben und darf 
jeden Wert zwischen 1 und 255 haben. Für 
das Apple-Disketten-Laufwerk ist BZ nor- 
malerweise 25. Für andere Laufwerke muß 
die Beruhigungszeit den Herstelleranga- 
ben entnommen werden. 


— Zeile 10170 definiert den Steckplatz 
(Slot), in dem normalerweise der zu te- 
stende Controller steckt. Der mit SN (1 bis 
7) definierte Steckplatz wird beim Pro- 
grammstart ausgewählt. 


— Zeile 10180 definiert das normalerweise 
zu testende Laufwerk. Das mit LN definier- 
te Laufwerk wird bei Programmstart aus- 
gewählt. LN darf den Wert 1 oder 2 haben. 


9936: 
9938: 
SA3A: 
9d3C: 
SÖ3F: 
9942: 


9944: 
9945: 
9948: 
SBAA: 
9B4D: 


SBAE: 
950: 
9952: 
9454: 
956: 
9859: 


905B: 
9O5D: 
Oß5F: 
9B62: 
9965: 
966: 
9667: 
Sö68: 
9969: 
9B6A: 
9B6C: 


SAGE: 
9AT7B: 
9PT2: 
9974: 
9A76: 
9978: 
9N7A: 


9ATC: 
9ÄTF: 
9881: 
9982: 
9084: 
986: 
9988: 
SO8A: 


SABC: 
OBBr: 
9891: 
9993: 
9995: 
9896: 
998: 
99a: 
9A9C: 
9A9E: 


9B9F 
9PAl: 
9RAA: 
9ßAG: 
9A9: 
SAAB: 
SAD: 
SAAF: 
99B2: 
98B5: 
9AB8: 


SOBA: 


c9 
Dd 
E6 
9D 
DD 
70 


E6 
Dp 
E6 
DA 
2C 
19 


AB 
A9 
9D 


48 
68 
48 
68 
88 
ro 
D® 


A6 
Ag 
85 
c6 
FB 
Ad 
84 


BD 
1P 
c8 
Dp 
E6 
3ß 
c9 
D® 


A6 
BD 
19 
2c 
39 
c9 
Dp 
2C 
2 
20 
rg 


A9 


92 
B2 
FF 
8D 
8C 
BA 


Bo 
EA 
8E 


83 
AA 
8D 
sc 


DE 
EF 


8C 
FB 


B4 
FD 
14 
FF 
Fö 


St 
FB 
AA 
DF 


FA 
FD 


FC 


FA 
8C 


#0 
F3 
FF 
P2 
3ß 
Ad 
B8 


Bd 


ch 
c# 


co 


c# 


Do 


ch 
CH 


c® 


cd 


Co 
c® 


cp 
c9 
91 


121 
122 
123 
124 
125 
126 
127 
128 
129 
13% 
131 
132 
133 
134 
135 
136 
137 
138 
139 
146 
14l 
142 
143 
144 
145 
146 
147 
148 
149 
15 
ls1 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
ilrail 
172 
173 


SCHR1 CMP 
BNE 
ING 
SCHR2 STA 
CMP 
BVS 
* 


x»dauernd schreiben, 


NOP 

LDY 

BPL 
ENDSCHR LDA 

RTS 
* 


+$92 
SCHR2 
FEHLERH 
Q6EIN,X 
O6AUS,X 
SPSCHR 


TASTDAT 
SCHR® 
QT7AUS,X 


*1 Spur schreiben 


SPSCHR INC 
BNE 
INC 
EBENE 
BIT. 
BPL 
* 


BYTEL 
SCHR® 
BYTEH 
SCHRI 
MODEA 
ENDSCHR 


:12 microsec F.w.abstand? 
‚nein —> Sprung 

;4 microsec zusätzlich 
‚Byte ausgeben 


;l Spur -> Sprung 


bis eine Taste gedrückt wird 


‚Taste gedrückt? 
‚nein -> weiter schreiben 
‚Schreiben ausschalten 


;Byte-Zähler erhöhen 
{2'er Komplement) 

;Byte-Zähler <> ® -> 

; weiter schreiben 

‚absolute Adressierung!! 

;kein Index -> Ende 


*Index für Umdrehungsdauermessung schreiben 


INDSCHR LDY 
INDSCHl LDA 
STA 
CMP 
PHA 
PLA 
PHA 
PLA 
DEY 
BEQ 
BNE 


*Anzahl Bytes 
* 
UMDR LDX 
LDA 
STA 
UMDR1 DEC 

BEQ 

LDF 

STY 
* 


*warten bis Index vorbei 


ke _ _ 1 


+3 
+5AA 

Q6EBIN,X 
QBAUS,X 


ENDSCHR 
INDSCHLl 


pro Spur messen (vom l. zum 2. Index) 


SLOT 
#3 
INDEX 
INDEX 
UMDRS 
+0 
BYTEH 


Q6AUS,X 
UMDR2 


UMDR3 
BYTEH 
UMDR5 
#$FF 

UMDR2 


Q6AUS,X 
UMDRA 
#5AA 
UMDR1 


UMDR4 
BYTEH 
UMDRA 
BYTEL 


UMDR2 LDA 
BPE 
INY 
BNE 
INC 
BMI 
UMDRS3 CMP 
BNE 
* 
warten auf Index 
UMDR4 LDA 
BPL 
CMP 
BEO 
INY 
BNE 
ING 
BRE 
UMDR5S SsTr 
RTN RTs 
* 


;3 Index Bytes 
;Flußwechselmuster 1®1ß 
‚Byte ausgeben 


;‚Byte-Zähler erniedrigen 
:zaähler — OD => Ende 
;Zähler > ® —-> weiter 


;X = Slot-Nr, + 51% 


;Index-Zähler setzen 
‚Index-Zähler erniedrigen 
‚ag Index => Sprung 
‚Y = Byte-Zähler low Byte 
‚Byte-Zähler löschen 


‚Byte lesen 
‚warten bis Byte komplett 
;Byte-Zähler erhöhen 


, >» 32767 Bytes -> Fehler 
‚4 microsec Abstand? 
‚nein = Index -> Sprung 


‚Byte lesen 

‚warten bis Byte komplett 
‚Index? 

‚ja -> Sprung 
;‚Byte-Zähler erhöhen 


>» 32767 Bytes -> Fehler 
;Byte-Zähler low Byte 


*Trigger für Spur-Justage mit CE-Disk erzeugen 


#BERUHZ = Mindest-Zeit bis zum nächsten Trigger in msec 


* 
SPTRIG LDX 
SPTRIGl LDA 
BPL 
BILE 
BMI 
CMP 
BNE 
BIT 
EIT 
JSR 
BEQ 


SLOT 
Q6AUS,X 
SPTRIGL 
TASTDAT 
RTN 
#$FF 
SPTRIGLl 
LAUTSP 
TRIGGER 
BERUH 
SPTRIG 


&»Positionier-Routine 


=* 
EOSST LDA 


+9 


:X = Slot-Nr. * $19 

‚Byte lesen 

;warten bis Byte komplett 
‚Taste gedrückt? 

;ja -> Abbruch 
:Orientierungsburst? 
nein -> auf Burst warten 
;Lautsprecher ansteuern 
‚Trigger ansteuern 
‚warten 

;immer springen 
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99BC: 
OAÖBE: 
9ACH: 
9BC2: 
9ßC3: 
9ßc5: 
9AC7: 


9%c9: 
SAcB: 
SÖCD: 


9AcH: 
9ßD1: 


9ÖD3: 
9ßD5: 


9BD7: 


9AD9: 
9ADB: 
SÄDD: 
SÖDE: 
OAÄDF: 
9ER: 
9BES: 
SAEB: 
OßEA: 
OßEB: 
SßEE: 
9ßFl: 
9ßFA: 
SPBFE: 


SAFs: 
SÖFB: 


Sörc: 
OßFE: 
91ßB: 


91®1: 
9183: 
9184: 
9197: 


9188: 
91lBßA: 
91dc: 
S1ßF: 
9119: 
9ıll2: 


ls. 
Sl. 
9116: 
Sı1l8: 
9119: 
911A: 
UL. 
911E: 


9S11F: 
Sl22: 
SI2A: 
912B: 
912E: 
SISE. 


all Bytes 


85 


85 
38 
E5 
Fo 
Bß 


49 
E6 
3 


69 
C6 


ds 
3 


A5 


A4 
A9 
28 
88 
Do 
69 


AR 
CA 
DP 
EA 
38 
E9 
Do 
69 


81 
24 
1C 
79 
82 
IC 
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FE 
FC 
me 
FB 


B6 


cm 
FC 
B4 


FE 
FC 


FE 
d2 


PE 


BC 
Bl 


FC 
IP 
13 
FF 


FE 
2B 
15 
FE 
06 


88 


FC 
B3 
FA 


80 


FD 
DA 
13 


F8 


12 


FD 


B1 
Fö 


3d 
2d 


ec 
IE 


= 
9 
91 


= 
91 
91 


31 


ch 


al 


28 
1E 


26 
lE 


174 
173 
176 
rt 
178 
179 
188 
181 
182 
183 
184 
185 
186 
IST 
188 
189 
198 
191 
192 
193 
194 
195 
196 
IIT 
198 
199 
zB 
261 
292 
283 
204 
285 
206 
287 
2088 
299 
219 
2ll 
212 
213 
214 
215 
216 
Al 
218 
219 
22d 
e2l 
Zar 
228 
224 
225 
226 
Bet 
228 
223 
230 
251 
232 
233 
234 
230 
236 
27 
238 
239 
2AB 
24l 
242 
243 
244 
245 
246 
1D IC 


247 
1D 1C 


STAA SCHRETT ;Schritt-Zähler löschen 
POSIT LDA AKTSP ‚aktuelle Spur laden 
STA ALTSP ‚.„ und retten 


SEC ;Zielspur subtrahieren 


SBd SZTELSE ‚ergibt Spurdifferenz in Ä 
BEQ AMZIEL ;Spurdiff. = Bd -> am Ziel 
BCS FOSITl :Diff, > 8 — nach außen 


* 
saktuelle Spur < Zielspur -> nach innen positionieren 


EOR #$FF ‚Absolutwert der Spurdiff., 
ING AKTSP ‚aktuelle Spur erhöhen 
BEG POSET2 


* 
saktuelle Spur > Zielspur -> nach außen positionieren 
POSETI ADC #$FE ;i seubtrahlieren 
DEC AKTSP ‚aktuelle Spur erniedrigen 
* 
*Spurdifferenz in A mit Schritt-Zähler vergleichen 
POSIT2 CMP SCHRITT 
BCCp POSIT3 :Spurdiff, < Schrittzahl 
* —> mit Spurdifferenz Rampe runterlaufen 
LDA SCHRITT Spurdiff,. > schreittzanl 
* -—> mit Schritt-Zähler Rampe hochlaufen 
* 
*wenn Rampe (Y) >= 12 würde -—> Y nicht mehr ändern 
FOSITS CMP_ #12 
BCS POSIT4 ;A >= 12 -> Y nicht ändern 
TAY ;A< 12 -> A nach Y laden 


POSIT4 SEC ‚=1-> 
JSR PHASEI ; aktuelle Phase ein 
LDA ZPHEIN,Y ;Einschaltzeit warten 
JSR WARTE 
LDA ALTSP ‚vorhergehende Phase „.. 
EEE Amon 
JSR PHASE2 . ausschalten 
LDA ZPHAUS,Y ;‚Ausschaltzeit warten 
JSR WARTE 
ENCIFSCHRETT ;‚Schritt-Zähler erhöhen 
BNE POSIT® 


* 

AMZIEL JSR BERUH ;Beruhigungszeit warten 
CLC ‚aktuelle Phase aus 

= 

*Sschrittmotor Phase ein- bzw. ausschalten 

PHASEI LDA AKTSP ‚aktuelle Spur laden 

PHASEZ AND #3 ‚Phasen # maskieren und 


ROL :s.. nach links schieben 
* C (Phase aus/ein) ist jetzt Bit 

ORA SLOT ;Slot-Nr. * $19 addieren 

TAX 

LDA CONTR,X ;Phase ein-/ausschalten 

RTS 


= 
#*Beruhigungszeit warten (BERUHZ » 1 msec) 
BERUH LDY BERUHZ 
BERUHl LDA #19 ;18 *& 180 microsec 
JSR WARTE ‚; = 1 msec warten 
DEY 
BNE BERUHL 
RTS 
* 
»Warte-Routine (verzögert um A * 199 microses) 
WARTE LDX #18 
WARTEL DEX 
BNE WARTEI 
NOP 
SEC 
SBCG #1 
BNE WARTE 
RTS 


‚A um 1 erniedrigen 


= 

»Zeittabellen für Rampe: Phase ein / Phase aus 
ZPHEIN HEX #1392824281E1DLCIC1C1CIC 

E77. 71% 


ZPHAUS 
16 1C 1C 


HEX T2C26221FIELDICICLCEIEIE 
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Nachdem das Programm vollständig ein- 
gegeben ist, wird es mit „SAVE 
DISKTEST" auf Diskette und/oder 
„SAVE” auf Kassette gespeichert. Mit Hil- 
fe eines Texteditors sollte zusätzlich die 
Text-Datei DISKTEST.START auf Disket- 
te gespeichert werden. Damit kann das 
Programm einfach durch Eingabe von 
„EXEC DISKTEST.START" geladen und 
gestartet werden. 

Zum Laden und Starten von Kassette wer- 
den die folgenden Befehle benötigt: 
POKE 104,64: POKE 16384,0: LOAD: 
RUN 


2. Bedienung des Programms 


Nach dem Start des Programms wird auf 
dem Bildschirm das Hauptmenü (s. Tabel- 
le 1) mit allen Befehlen des Testpro- 
gramms ausgegeben. Die Befehle werden 
durch Eingabe des zugehörigen Buchsta- 
bens ausgeführt, die in Klein- oder Groß- 
schreibung eingegeben werden können. 


C - Mit dem C-Befehl wird der Steckplatz 
(Slot) ausgewählt, in dem der zu testende 
Controller steckt. Nach Eingabe des „CO 
springt der Cursor ans Ende der Befehls- 
zeile. Nachdem die Steckplatz-Nummer (1 
bis 7 - ohne RETURN) eingegeben wor- 
den ist, prüft das Programm, ob sich in 
dem angegebenen Steckplatz tatsächlich 
ein Disketten-Controller befindet. Wenn 
nicht, wird eine Fehlermeldung ausgege- 
ben. Wenn sich in dem Steckplatz ein 
Disketten-Controller befindet, wird aus 
dem Inhalt des PROMs eine Prüfsumme 
gebildet. Falls die Prüfsumme nicht 
stimmt, wird ebenfalls eine Fehlernach- 
richt ausgegeben. Bei Controllern mit ab- 
weichendem PROM kann die Fehlermel- 
dung ignoriert oder das Programm für die 
andere Prüfsumme entsprechend abgeän- 
dert werden (Zeile 30080). 


D - Mit dem D-Befehl wird das zu testen- 
de Laufwerk (Drive) ausgewählt. Jedes- 
mal, wenn die Taste „D” gedrückt wird, 
wird zwischen Laufwerk 1 und 2 hin- und 
hergeschaltet. Das ausgewählte Laufwerk 
wird am Ende der Zeile angegeben. 


E - Mit dem E-Befehl wird das ausgewähl- 
te Laufwerk ein- bzw. ausgeschaltet. Ist 
das Laufwerk ausgeschaltet, so wird es 
durch Drücken der Taste „E" eingeschal- 
tet. Wird die Taste „E” das nächste Mal 
betätigt, so wird das Laufwerk wieder aus- 
geschaltet. Am Ende der Zeile ist angege- 
ben, ob das Laufwerk momentan ein- oder 
ausgeschaltet ist. 


0 — Der O-Befehl % dient zur Positionierung 
des Laufwerks auf die Spur 0. Nachdem 
ein Laufwerk das erste Mal eingeschaltet 
wurde, muß es zunächst auf Spur O posi- 
tioniert werden, bevor weitere Befehle 
ausgeführt werden können. 


I — Mit dem I-Befehl wird das ausgewählte 
Laufwerk von der momentanen Position 
um jeweils eine Spur nach innen positio- 
niert. Die jeweilige Spurposition wird am 
Ende des P-Befehls ausgegeben. 


A - Der A-Befehl positioniert das ausge- 
wählte Laufwerk um eine Spur nach 
außen. 


P - Mit Hilfe des P-Befehls kann direkt auf 
eine beliebige Spur positioniert werden. 
Nach Drücken der Taste „P“ springt der 
Cursor an das Ende der Befehlszeile. 
Nachdem die gewünschte Spurnummer 
und RETURN eingegeben wurde, positio- 
niert das Laufwerk auf diese Spur. 


H - Mit dem H-Befehl positioniert das 
Laufwerk ständig zwischen zwei beliebi- 
gen Spuren hin und her. Damit kann der 
Positioniermechanismus über längere Zeit 
getestet werden. Nach Drücken der Taste 
„H” müssen zunächst die beiden Spuren 
eingegeben werden (jeweils mit RETURN 
abgeschlossen). Danach startet das Posi- 
tionieren, das jederzeit durch Drücken ei- 
ner beliebigen Taste abgebrochen werden 
kann. Zum leichteren Öszillographieren 
wird nach jedem zweiten Positionieren ein 
Trigger-Impuls am Utility-Strobe-Ausgang 
(Game-I/O-Stecker Stift 5) erzeugt. 


T - Der T-Befehl testet, ob die Diskette in 
dem ausgewählten Laufwerk schreibge- 
schützt ist oder nicht. 


F - Mit dem F-Befehl wird der beim 
Schreiben und Lesen verwendete Fluß- 
wechselabstand ausgewählt, Zur Wahl 
stehen drei FluBwechselmuster mit den 
drei beim Apple-Aufzeichnungsverfahren 
vorkommenden Flußwechselabständen 
von 4, 8 und 12 Mikrosekunden. Jedes- 
mal, wenn die Taste „F” gedrückt wird, 
wird auf das nächste Flußwechselmuster 
weitergeschaltet. 


M - Mit dem M-Befehl wird die Betriebsart 
(Modus) für Schreiben und Lesen ausge- 
wählt. Zur Wahl stehen: „dauernd“, „1 
Spur” und „ganze Diskette“. Jedesmal, 
wenn die Taste „M” gedrückt wird, wird 
die nächste Betriebsart für Schreiben und 
Lesen vorgewählt. 
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L - Der L-Befehl startet das Lesen von der 
Diskette, Nach jedem Lesevorgang wird 
die Anzahl der gelesenen und der davon 
fehlerhaften Disk-Bytes ausgegeben. Vor- 
aussetzung ist natürlich, daß die Diskette 
vorher mit dem gleichen Flußwechselmu- 
ster beschrieben wurde. Je nach ausge- 
wählter Betriebsart hat der L-Befehl unter- 
schiedliche Funktionen: 


— Das Lesen in der Betriebsart „dauernd 
bewirkt, daß das Lesen der momentanen 
Spur ständig wiederholt wird, bis es durch 
Drücken einer beliebigen Taste abgebro- 
chen wird. Nach jedem Lesevorgang wird 
das Ergebnis auf dem Bildschirm ausge- 
geben. 


— In der Betriebsart „I Spur“ wird die 
momentane Spur einmal gelesen. 

— In der Betriebsart „ganze Diskette“ wer- 
den alle Spuren der Diskette nacheinander 
einmal gelesen und das Ergebnis für alle 
Spuren auf dem Bildschirm ausgegeben. 
Nachdem alle Spuren gelesen wurden 
oder das Lesen durch Drücken einer be- 
liebigen Taste abgebrochen wurde, er- 
scheint ein Untermenü, das folgende 
Funktionen zuläßt: 


— T - Der T-Befehl bewirkt die Ausgabe 
der Testergebnisse in Textform auf dem 
Bildschirm. Dies ist die gleiche Form, in 
der die Ergebnisse auch während des 
Tests selbst ausgegeben werden. 

— D - Der D-Befehl bewirkt die Ausgabe 
der Testergebnisse auf einem Drucker, 
Das Programm geht davon aus, daß sich 
das Druckerinterface in Steckplatz (Slot) 1 
befindet. Ist dies nicht der Fall, muß Zeile 
25610 im BASIC-Programm entsprechend 
geändert werden. 


—- G - Durch den G-Befehl werden die 
Testergebnisse grafisch in Form eines 
Balkendiagramms auf dem Bildschirm 
ausgegeben. Auf der waagerechten Achse 
werden die Spuren aufgetragen und auf 
der senkrechten Achse im logarithmi- 
schen Maßstab die Anzahl der Lesefehler. 
Striche am linken Bildrand markieren die 
Werte für 0, 10, 100 und 1000 Lesefehler. 
— H - Durch Drücken der Taste „H” ge- 
langt man zurück zum Hauptmenü. 


S - Der S-Befehl des Hauptmenüs startet 
das Schreiben auf die Diskette. Zuvor wird 
geprüft, daß die Diskette nicht schreibge- 
schützt ist, und der Bediener wird gewarnt, 
welche Spuren überschrieben werden. 
Zur Bestätigung, daß wirklich geschrieben 
werden soll, muß ein „J“ (Ja) eingegeben 
werden. 


- In der Betriebsart „dauernd“ wird unun- 
terbrochen geschrieben, bis eine beliebi- 
ge Taste gedrückt wird. Diese Betriebsart 
ist speziell zum Oszillographieren des 
Schreibvorgangs vorgesehen. 


— In der Betriebsart „I Spur“ wird die 
momentane Spur einmal mit dem ausge- 
wählten Flußwechselmuster beschrieben. 
— In der Betriebsart „ganze Diskette“ wer- 
den alle Spuren einmal beschrieben. 


W - Der W-Befehl ermöglicht abwech- 
seindes Schreiben und Lesen. Die Funk- 
tion in den einzelnen Betriebsarten ist 
gleich dem L-Befehl, außer daß unmittel- 
bar vor jedem Lesen die momentane Spur 
einmal beschrieben wird. 


U - Der U-Befehl dient zur Messung und 
Justage der Umdrehungsdauer (Dreh- 
zahl). Die Abweichung von der nominalen 
Umdrehungsdauer wird ständig numerisch 
und grafisch ausgegeben, bis eine beliebi- 
ge Taste gedrückt wird. Positive Abwei- 
chungen bedeuten, daß die Umdrenungs- 
dauer zu hoch ist bzw. daß sich die Disket- 
te zu langsam dreht. Die Abweichung soll 
zwischen +1 % und -1 % liegen. Die 
optimale Drehzahl liegt bei etwa +0,5 % 
Abweichung. 


J - Der J-Befehl dient als Hilfe beim Über- 
prüfen und Justieren der Spurlage mit Hil- 
fe einer Justage-Diskeite (CE-Disk) von 
BASF. Normalerweise braucht man beim 
Arbeiten mit dieser Diskette den Index 
zum Triggern des Öszillographen. Beim 
Apple-Laufwerk, das ja keine Index-Abfra- 
ge hat, kann man dann nur auf das Lese- 
signal triggern, was sehr schwierig ist. Das 
Programm schafft hier Abhilfe, indem es 
einen künstlichen Index generiert. Nach 
Eingabe des J-Befehls wird pro Umdre- 
hung ein Impuls am Utility-Strobe-Aus- 
gang (Game I/O Stecker Stift 5) generiert. 
Zusätzlich wird pro Umdrehung auch ein 
„Klick“ des Lautsprechers erzeugt. 


Vor Ausgabe des Trigger-Signales wird 
noch überprüft, ob sich das Laufwerk auf 
der für die Justage richtigen Spur befindet. 
Bei 5,25-Zoll-Laufwerken ist dies bei ein- 
facher Spuraichte Spur 16 und bei doppel- 
ter Spurdichte Spur 32. Befindet sich das 
Laufwerk nicht auf der richtigen Spur, wird 
eine entsprechende Fehlermeldung aus- 
gegeben. 


Die Kontrolle und Justage der Spurlage 
mit Hilfe der BASF-CE-Disk wird ausführ- 
lich in einem späteren Artikel erläutert. 
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Accelerator Ile macht 
Ihren Apple® II, II Plus oder Ile 
dreieinhalbmal schneller. 


{ B Ft - 
er} FREU LFFFFLe u 6% 
Fe Kit LEIESTETEESETZI TE ES zus 
| 9 N ee 
ESTErTe BEITTEEE 

E kccwloriumar Ile 
sterben 


TE IT TE et 


A 
el [ 
| ae LEI EI TE ETE WPFF EN “. 
z ir. u A 
a j | tere 


Be 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 

wir Ihr Apple loslegt! 
ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
| speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 


Direkt von Pandasoft (Titan Distributor für Deutschland) | 


oder bei Ihrem Applehändler. 


he En 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


2 lı ge Druckerinterfaces für Apple II+/e/ 
Printer Interface c/lll Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt. 


Grappier «= Grafikfähiges Druckerinterface 
Printer Interface 


das keine Wünsche mehr offen läßt. 
Über 2 Dutzend Kommandos ermöglichen die volle enleler 
über alle Möglichkeiten Ihres A | 
Druckers. Jetzt auch mit 
Ile Features: Double Hires 
Grafics und 80 Zeichen Dump 5 
mittels Druckerpuffer nachrüstbar ii 
über Bufferboard. » 


ra 


ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 


Besitzt alle Vorzüge des Grappler +, 
hat aber zusätzlich einen integrier- 


SERIAL Serielles Druckerinterface 
Grappler speziell für den Apple Image- 
Printer Interface 


writer. 
Mlorumk 
ie Hotlink, jedoch ätzlich 
KRRRAPPLER C a en engen 


Software-Diskette. 


Dpanday®ft Dr.-Ing. Eder 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 : Telex: 185 859 


Seriell-nach-Parallel-Wandler für 
den |lc im Kabel integriert. 
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ThunderScan."” 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgeltastet. 


"& File Edit Scanner Tools 


Contrast = 110m 


Sl 


BLISTEBE a Bi 


Lines togo 186 


® 32 Graustufen 

@ 80 Punkte/cm Auflösung 

@ Ubertragungsmaßstab 25% - 400% 

® Vorlagen bis 20x25 cm 

@ Nachträgliche Veränderung des Kontrasts 
und der Helligkeit. 


Panday®&ftı.... 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 : Telex: 185 859 


Thunder Scan 


und die 
| Hardwar aona 


wir haben die 
Software... 


alt 
Ic HB u B 


ALLES FÜR DEN APPLE ii, Ile, lie UND MACINTOSH 


pandayört-. sg. El 


UHLANDSTRA. 195 - D-71000 BERLIN 12 
NR a0 423 been 185859 
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B - Mit Hilfe des B-Befehls erfolgt die 
Rückkehr nach BASIC. Soll das Programm 
anschließend weiterbenutzt werden, so ist 
ein Warmstart mit „GOTO 10000“ mög- 
lich. Zu beachten ist, daß nach Verlassen 
des Programms keine DOS-Befehle mehr 
funktionieren, da das DOS aus Sicher- 
heitsgründen „abgekoppelt“ wird. Soll mit 
dem Diskettensystem weitergearbeitet 
werden, so muß das DOS neu gebootet 
werden. 


3. Aufbau und Funktion des Pro- 
gramms 


Das Testprogramm besteht aus einem Ap- 
plesoft-Programm für die Tastatur-Eingabe 
und Bildschirm-Ausgabe sowie einigen 
Assembler-Unterprogrammen für alle zeit- 
Kriischen Disketten-Operationen. Das 
BASIC-Programm liegt ab $4000 und die 
Assembler-Unterprogramme ab $9000 im 
RAM. Das BÄSIC-Hauptprogramm be- 
steht aus den Zeilen 10000 bis 10630. Die 
Zeilen 11000 bis 29240 enthalten die Un- 
terprogramme für die einzelnen Befehle 
und die Zeilen 30000 bis 49090 solche 
Unterprogramme, die von mehreren Be- 
fehlen gemeinsam benutzt werden. In den 
Zeilen 50000 bis 55520 erfolgt die Initiali- 
sierung des Programms. 

Eine ausführliche Beschreibung des Pro- 
grammablaufs ist aus Platzgründen nicht 
möglich, Es sollen deshalb nur einige Er- 
läuterungen zur Ansteuerung des Control- 
lers und Laufwerks gegeben werden. 


Das Ein- bzw. Ausschalten des Laufwerks 
und das Umschalten zwischen den beiden 
Laufwerken erfolgt durch „PEEK“-Befehle 
unmittelbar vom BASIC-Programm aus 
(Zeile 33020 und 33030). Ebenso erfolgt 
die Abfrage des Schreibschutzes durch 
„PEEK"-Befehle (Zeile 36010 und 
36020). Alle anderen Funktionen sind zeit- 
Kritisch und können deshalb nicht direkt im 
BASIC-Programm ausgeführt werden, 
sondern rufen über „CALL“-Befehle As- 
sembler-Unterprogramme auf. Für alle As- 
sembler-Unterprogramme wird in Adresse 
250 ($00FA) die Nummer des Steckplat- 
zes (Slot) x 16 übergeben (Zeile 30090). 
Zum Positionieren wird in Adresse 251 
bis 253 ($00FB bis $0OOFD) die Zielspur, 
die momentane Spur und die Beruhi- 
gungszeit übergeben (Zeile 34020 und 
34030). Die Positionier-Routine ist im As- 
sembler-Programm in Zeile 171 bis 247 
enthalten. Um die Laufwerke beim Positio- 
nieren unter gleichen Bedingungen wie im 
echten Betrieb zu testen, wurde der Posi- 
tionier-Algorithmus unverändert von DOS 
3.3 übernommen. 
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Zum Schreiben wird in Adresse 251 bis 
254 ($00FB bis $0OFE) das Flußwechsel- 
muster, die Anzahl der zu schreibenden 
Disk-Bytes (im 2er-Komplement) und der 
Schreibmodus übergeben (Zeile 38030 
und 37020). Die Schreib-Routine ist im 
Assembler-Programm in den Zeilen 68 bis 
119 enthalten. 


a. Die Flußwechselmuster 


Das Testprogramm erlaubt die Auswahl 
zwischen drei verschiedenen Flußwech- 
selmustern, die den drei beim Apple-Auf- 
zeichnungsverfahren vorkommenden Fre- 
quenzen bzw. Flußwechselabständen ent- 
sprechen. Beim Apple-Aufzeichnungsver- 
fahren ist eine Bitzelle 4 usec lang. Die 
Definition der Datenflußwechsel ist die 
gleiche wie bei FM (s. Peeker 3/85, S. 19/ 
20). Im Gegensatz zu FM und MFM wer- 
den beim Apple jedoch überhaupt keine 
Taktflußwechsel geschrieben. Die Bytes, 
die auf die Diskette geschrieben werden, 
werden Disk-Bytes genannt, da sie nicht 
direkt den eigentlichen Daten-Bytes ent- 
sprechen. Um eine kontinuierliche Fluß- 
wechselfolge mit 4 usec Abstand zu 
schreiben, muß man demnach ein Disk- 
Byte mit dem Bitmuster 11111111 = $FF 
= 255 verwenden. Das Bitmuster 
10101010 = $AA = 170 erzeugt eine 
kontinuierliche Aufzeichnung mit 8 usec 
Flußwechselabstand. Etwas schwieriger 
wird es bei 12 usec Abstand, was einem 
Bitmuster 100... entspricht, das sich nicht 
in einem 8-Bit-Disk-Byte unterbringen 
läßt. Mit einem einfachen Trick kann man 
aber mit dem Controller 9- oder 10-Bit- 
Disk-Bytes schreiben. Dazu werden die 
ersten 8 Bits in den Controller ausgege- 
ben und der Controller fügt solange Nullen 
hinzu, bis das nächste Disk-Byte ausge- 
geben wird. Das Bitmuster 10010010 = 
$52 = 146 erzeugt die Aufzeichnung 
100100100 und damit das gewünschte 
Muster, wenn die Disk-Bytes im Abstand 
von 36 usec (anstelle 32 usec) an den 
Controller ausgegeben werden. Bild 1 bis 
3 zeigt die Aufzeichnung für die drei Fluß- 
wechselmuster. 


b. Die Spurkapazität 


Die nominale Spurkapazität einer Apple- 
Diskette berechnet sich aus folgender 
Formel: 

Ks=U:B 

In der Formel ist Ks die (unformatierte) 
Kapazität pro Spur in Disk-Bits, U ist die 
Umdrehungsdauer der Diskette und B ist 
die Zeitdauer einer Bitzelle. 

Bei nominaler Drehzahl ist die Umdre- 


hungsdauer U = 200 msec = 200 000 
usec. 


Der Original-US-Apple hat eine Oszillator- 
frequenz von f = 14,31818 MHz, was ei- 
ner Periodendauer von T = 1: f = 69,841 
nsec entspricht. Der Prozessortakt wird 
durch 14fache Teilung erzeugt und hat 
somit eine Periodendauer von 14-T = 978 
nsec. Jeder 65. Prozessortakt wird jedoch 
um 2 Öszillatorperioden verlängert und ist 
somit 16 - T = 1117 nsec lang. Damit 
beträgt die mittlere Dauer eines Prozes- 
sortaktes (64 -14:-T +16:T):65 = 912: 
T:65 = 980 nsec. Die Länge einer Bitzel- 
le ist schließlich 4 Prozessortakte und da- 
mit im Mittel 4 - 912: T: 65 = 3648 -T: 65 
= 3919,7 nsec = 3,9197 usec. 

Damit beträgt die Kapazität einer Spur Ks 
= 200 000 : 3,9197 = 51024 Disk-Bits. 
Für 8-Bit-Disk-Bytes ist damit die Kapazi- 
tät pro Spur 51024 : 8 = 6378 Disk-Bytes 
und für 9-Bit-Disk-Bytes 51024 : 9 = 5669 
Disk-Bytes. 


c. Das Schreiben 


Der Schreibmodus wird durch Bit 7 und 6 
in Adresse 254 ($00FE) definiert. Ein Wert 
von 64 ($40) bedeutet, daß eine ganze 
Spur geschrieben werden soll. Um sicher- 
zustellen, daß auch bei Drehzahlschwan- 
kungen eine vollständige, in sich ge- 
schlossene Spur entsteht, werden 10 % 
mehr Disk-Bytes geschrieben. An der 
Stelle, wo das Schreiben ausgeschaltet 
wird, entsteht eine sog. Stoßstelle. Bild 4 
zeigt ein Beispiel, wie eine solche Stoß- 
stelle entsteht. Der Abstand t zwischen 
zwei gleichen FlußBwechseln kann im Bei- 
spiel — je nach momentaner Umdrehungs- 
dauer — jeden Wert zwischen O und 16 
usec haben. Je nachdem, welchen Wert tt 
hat, tritt beim Lesen der Stoßstelle ein 
Fehler auf oder nicht. 

Ein Wert von O für den Schreibmodus be- 
deutet, daß ununterbrochen geschrieben 
werden soll, bis eine Taste gedrückt wird. 


d. Das Lesen 


Beim Lesen werden in Adresse 251 bis 
253 ($00FB bis $0OOFD) das Flußwechsel- 
muster und die Anzahl der zu lesenden 
Disk-Bytes übergeben (Zeile 38030). Die 
Anzahl der zu lesenden Disk-Bytes ist ge- 
nau gleich der nominalen Spurkapazität. 
Das Assembler-Unterprogramm zum Le- 
sen befindet sich in den Zeilen 47 bis 65. 
Bei Rückkehr vom Unterprogramm wird in 
Adresse 254 und 255 ($00FE und $O00FF) 
die Anzahl der fehlerhaft gelesenen Disk- 
Bytes übergeben. Um die Software zu ver- 
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einfachen, wird beim Lesen nicht auf den 
Spuranfang synchronisiert, sondern das 
Lesen beginnt da, wo sich der Schreib-/ 
Lesekopf gerade befindet. Das Programm 
liest also auch die beim Abschalten des 
Schreibens entstandene Stoßstelle, was 
häufig ein fehlerhaftes Disk-Byte zur Folge 
hat. Aus diesem Grund ist ein Ergebnis mit 
einem Lesefehler praktisch als fehlerfrei 
anzusehen und wird in der grafischen Dar- 
stellung auch so ausgegeben. 


e. Die Umdrehungsdauer 


Die Messung der Umdrehungsdauer er- 
folgt indirekt über eine Messung der Spur- 
Kapazität. Für ein einwandfreies Funktio- 
nieren der Software (insbesondere von 
Nibble-Kopierern) ist es erforderlich, daß 





mindestens die nominale Spurkapazität 
auf die Diskette paßt. Für alle Euro-Apples, 
die mit einer von US-Apples etwas abwei- 
chenden Oszillatorfrequenz arbeiten, be- 
deutet das, daß die nominale Umdare- 
hungsdauer nicht 200 msec beträgt, son- 
dern dann erreicht ist, wenn 6378 Disk- 
Bytes auf eine Spur passen. Deshalb darf 
die Umdrehungsdauer auch nicht - falls 
vorhanden — mit der Stroboskobscheibe 
oder mit einem Digitalzähler auf genau 200 
msec eingestellt werden. 


Für die Messung der Spurkapazität wird 
zunächst eine ganze Spur mit 4 usec Fluß- 
wechselabstand (FlußBwechselmuster 255 
= $FF) beschrieben. Unmittelbar danach 
werden drei Disk-Bytes mit 8 usec Fluß- 
wechselabstand als Index aufgezeichnet. 


Technik 94 


Zum Erzeugen dieser Aufzeichnung wird 
der Schreibmodus zu 192 ($C0O) gesetzt. 
Nach dem Schreiben wird gelesen und die 
Anzahl der Disk-Bytes von Index zu Index 
gezählt. Die zugehörige Assembler-Routi- 
ne ist in den Zeilen 122 bis 152 enthalten. 
Bei der Rückkehr in das BASIC-Programm 
enthält Adresse 252 und 253 ($00FC und 
$00FD) die Anzahl der Disk-Bytes. Adres- 
se 254 ($00FE) enthält eine Fehlermarke. 
Wurde der Index nicht gefunden, weil z.B. 
keine Diskette eingelegt war oder weil der 
Schreib- oder Lesekreis defekt war, dann 
ist die Fehlermarke ungleich null. Das BA- 
SIC-Programm gibt dann anstelle der Ab- 
weichung das Wort „Fehler“ aus. Voraus- 
setzung für die Messung der Umare- 
hungsdauer ist also, daß der Schreib-/ 
Lesekreis einwandfrei funktioniert. 
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Bild 3: Aufzeichnung mit 12 usec Flußwechselabstand 
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Bild 1: Aufzeichnung mit 4 usec FluBwechselabstand 
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Bild 2: Aufzeichnung mit 8 usec FlußBwechselabstand 
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Bild 4: Beispiel einer Stoßstelle bei einer Aufzeichnung von 
8 „sec FluBwechselabstand 
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Tabelle 1: 
APPLE II DISKETTENSYSTEM TEST 


Lip tHmHearloan 


zronE721+4 


Controller-Steckplatz (Slot): 6 
Laufwerk (Drive): 1 

Laufwerk ein-/ausschalten: aus 
Positionieren auf Spur ® 

1 Spur nach innen 

l Spur nach außen 

Positionieren auf Spur: 

hin und her zwischen Spur 


Schreibschutz testen 
Flußwechselabstand: 4 microsec 
Schreib/Lese Modus: 1 Spur 
Schreiben 

Lesen 

abwechselnd schreiben und lesen 


Umdrehungsdauer messen 
Spur-Justage: Trigger generieren 
Ausgang nach BASIC 


DISKTEST 


18899 
1861 
1P629 
19199 
18119 
18129 


18130 : 


1014 
18158 
18169 
1817 
18188 
1619# 
18298 
18218 


REM Testprogramm für Apple II Diskettensystene 
REM von Dipl.-Ing. Gerhard Berg - 2.3.1985 
POKE 35,24: IF WS > ® GOTO 121 

HOME : IF PEEK (194) < 64 GOTO 2918 

HM = 36864: HIMEM: HM 


AS 35: REM Anzahl Spuren 

PH 2: REM Phasen pro Spur 

BZ 25: REM Beruhigungszeit in msec 
SN 6: REM Steckplatz-Nr. 

LN = 1: REM Laufwerk-Nr. 

GOSUB 5BBW0:F = B: GOSUB 30009 

GOSUB 49ßß6: IF F > Ö GOTO 1961 


18228 : 


10599 
1®51® 
1052® 
10538 
18548 
19558 
18569 
18576 
10588 
1059 
19600 


1d61® 
1962® 
1B639 
11869 
11010 
11028 
11830 
11049 
11859 


REM Hauptschleife 

GOSUB 45ßßB: GOSUB A2Bpd:F = ® 

FOR B= 1 TO MB: IF MID$ (BT$,B,1) = EZ$ GOTO 1ß54B 
NEXT :B = 9 

IF FB{B) > Ö AND SN = Ö THEN F = 1: GOTO 1ß61ß 

IF FB{B) > 1 AND ARE = ® THEN F = 2: GOTO 1ß61ß 

IF FB{B) > 2 AND S(SN,LN) < ® THEN F = 3: GOTO 1ß6lß 
IF FB(B) < 4 GOTO 10d6ß6 

GOSUB 366060: IF SS = 1 THEN F = A: GOTO 161 

GOSUB Alßed: IF EZ$ = "N" GOTO 1B599 

ON B GOSUB 11@d0,12B09, 13009, 14009, 15900, 16P00,17B08, 
18609, A020. 2060P,, 21000, 22000 ,23000, 25009, 25009, 
Aa9020,27000 , 28000, 29000 

IF F> ® THEN GOSUB Add 

GOTO 156% 

REM Steckplatz auswählen 

IF SN > ® THEN AE = ß: GOSUB 3300 

Bl = 1: GOSUB 44ßBd: GET EZ$:SN = ASC (EZ$) - 48 

IF SN< 1 0ORSN > 7 THEN PRINT BEL$:: GOTO 1182# 
GOSUB A2ßß0: PRINT "Bitte warten!"; 

GOSUB 300008: CGOSUB A2B60: GOTO 31000 


11069 : 


12999 
12819 


REM Laufwerk auswählen 
LN = 1 + NOT {LN - 1}: GOTO 32098 


12828 : 


13009 
1381 


REM Laufwerk ein-/ausschalten 
AE = NOT AB: GOTO 33809 


13029 : 


14B0B 
14918 


REM Nach Spur ® positionieren 
S{SN,LN) = MS + 4:5 = ß: GOTO 34900 


14928 : 


15999 
15818 
1528 


REM 1 Spur nach innen 
5 = S{SN,LN) + 1: IF S > MS GOTO 48820 
GOTO 340% 


15038 : 


16099 
16816 
16928 


REM 1 Spur nach außen 
S = S{SN,LN) - 1: IF S< $ GOTO 49828 
GOTO 34989 


16939 : 


17868 
17816 
17828 
17938 


14 


REM Positionieren 

Bl = 7: GOSUB A4ddd: GOSUB 35009 

IF S{SN,LN}) < ® THEN HV = S: GOSUB 14909:5 = HV 
GOTO 34990 


17840 : 

1806@ REM Hin und her positionieren 

18610 Bl = 8: GOSUB 44099 

18628 GOSUB 35699:SH{1) = S: PRINT " und "; 
18638 GOSUB 35089:5H(2) = S: GOSUB 43800 

18649 IF S(SN,LN) < ® THEN GOSUB 14008 

18856 FOR I = 1 TO 2:5 = SH(I): GOSUB zanda 
18660 IF PEEK (TD) > 127 GOTO 188% 

18670 NEXT I:HV = PEEK (TG): GOTO 18959 

18680 Bl = 8: GOSUB 44999: GOTO 428949 

18999 : 

26808 REM Schreibschutz testen 

208010 GOSUB 36ß98: PRINT "Diskette ist "; 

208268 IF SS = Ö THEN PRINT "nicht "; 

20639 PRINT "schreibgeschützt.";: RETURN 

29049 : 

216008 REM Flußwechselabstand wählen 

21818 FM = FM + 1: IFFM = 4A THEN FM = 1 

21628 AB = KS: IF FM = 3 THEN AB = INT (AB = 8 9) 
21038 Bl = 11: GOSUB 4400P 

21846 PRINT SPC{ FM < 3);FM * 4;" microsec": RETURN 
21858 : 

22609 REM Schreib-/Lese-Modus wählen 

22618 MO = MO + 1: IF MO = 4 THEN MO = 1 

22028 Bl = 12: GOSUB 44988: PRINT MO$(MO);: RETURN 
220839 : 

23ß00 REM Schreib-Funktion 

23618 IF MO < > 2 THEN GOSUB 43#09 

23028 ON MO GOTO 23199, 37069 ,23298 

23038 : 

23168 REM Dauernd schreiben 

23118 SM = B:Fl = FM:Al = AB: GOSUB 37920: GOTO 42000 
23120 : 

232068 REM Ganze Diskette beschreiben 

23210 FOR S = B TO MS: GOSUB 34Bdd: GOSUB 378% 
23228 IF PEEK (TD) > 127 GOTO 42089 

23236 NEXT : GOTO 42089 

23248 : 

25988 REM (Schreiben und) lesen 

25010 ON MO GOTO 25109, 25299, 25396 

2508298 : 

25100 REM Dauernd {schreiben und) lesen 

2511® GOSUB 43ßß®: POKE 35,22: HOME 

25128 GOSUB 25289: PRINT 

25130 IF PEEK {TD) < 128 GOTO 25129 

2514ß GOTO 48090 

25159 : 

25209 REM Einmal (schreiben und) lesen 

25218 IF B= 15 THEN GOSUB 37899 

25229 GOSUB 39689: PRINT "Bytes gelesen: ";AB; 
25238 PRINT " - Fehler: ";LF;: RETURN 

25240 : 

25506 REM Ganze Diskette (schreiben und) lesen 
25310 GOSUB 43006: POKE 35,22: HOME : GOSUB A708 
25326 FOR S = Ö TO MS: GOSUB 34499 

25330 IF B= 15 THEN GOSUB 37®9# 

2534 CGOSUB 39BBB:LF(S) = LF: GOSUB 46009 

25358 IF PEEK (TD) > 127 THEN TS = S: GOTO 25409 
25369 NEXT :TS = MS 

25370 : 

25400 GOSUB A2BÖ0: VTAB 23: POKE 35,24 

25418 PRINT "T — Text-Ausgabe G - Grafik-Ausgabe" 
25428 PRINT "D - Drucker-Ausgabe H -— Hauptmenü"; 
25439 GOSUB 45889: FOR I=1 TO 4 

25440 IF EZ$ = MID$ ("TDGH",I,1) GOTO 2546 
25450 NEXT : PRINT BEL$;: GOTO 2543® 

25460 TEXT : POKE 35,22 + (I=4) « 2: HOME 
25470 ON I GOTO 25599, 25699, 25809, 490089 

25488 : 

25598 REM Text-Ausgabe 

2551 GOSUB 47909 

25528 FOR S = Ö TO TS: GOSUB 46890: NEXT 

25539 GOTO 25439 

25549 : 

25669 REM Drucker-Ausgabe 

25619 PR# 1: POKE 35,29 

25628 PRINT B$({11);" ";: GOSUB 21949: PRINT 
256308 FOR I = 1 TO SP: PRINT "Spur Fehler "; 
25648 NEXT : PRINT 

25658 FOR I = TOZE- 1 

25668 FOR J = 8 TO MS STEP ZE 

25678 S = I + J: IF S > TS GOTO 25799 

25688 LF = LF(S):Li1 = LEN ( STR$ {LF)) 

25698 PRINT " ":S; SPC 3 + (S < 1B));LF; SPC( 8 - Li); 
25788 NEXT : PRINT : NEXT 

25718 IN# S: PR# B: GOTO 25439 
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Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., 
DM 28,- 


Dies ist die erste deutschspra- 
chige Darstellung des Disket- 
tenbetriebssystems DOS 3.3 
für den Apple II/II Plus/lle, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program- 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus- 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste- 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro- 
Ben Bedeutung und der ver- 
gleichsweise komplizierten 
Handhabung besonders darge- 
stelit werden. Viele Textfile- 
Tricks werden hier zum ersten- 
mal geschildert. 

Aber auch im zweiten Teil fin- 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro- 
grammierer gedacht. Neben ei- 
ner detaillierten Beschreibung 
der DOS-Interna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme - 2. B. 
CPM-Refiner, DOS-lose Da- 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine -, die 
Techniken enthüllen, die bis- 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent- 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple Il 

Basic Handbuch 
von Douglas Hergert 
304 Seiten, 116 Abb. 
DM 32,- 


Das Buch ist als Nachschlage- 
werk konzipiert, daß seinen 
Platz neben jedem APPLE Il, 
+ und Ile haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program- 
mierer. 


Aus der Praxis heraus präsen- 
tiert der Autor Tips und Vor- 
schläge, die das Programmie- 
ren leichter und zugleich effi- 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklärt. 
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Dazu werden alle DOS-Befehle 
(neben vielen Begriffen der 
Computerterminologie) vorge- 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich- 
tige Anwendung zu üben. Un- 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IF/THEN- 
Entscheidungen für seine 
Zwecke einzusetzen. 

Durch die präzise und leicht 
verständliche Sprache des Au- 
tors werden auch schwierige 
Befehle einfach in der Anwen- 
dung. 


Apple Maschinen- 
sprache 

von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,— 


a ah 
MASCHINEN 
SPRACHE 





Dieses Buch ist wahrscheinlich 
die beste Einführung in die 
6502-Programmierung für den- 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi- 
nenprogramm geschrieben 
hat. 

Aus dem Inhalt: 

Applesoft II BASIC - kurzge- 
taßt - Alles über Zeichen - Al- 
les über Speicher — Alles über 
Maschinenbefehle - Maschi- 
nenprogramme mit BASIC ein- 
geben — Graphik — Text- Ton — 
Arithmetik —- Was tun mit den 
Maschinenprogrammen 


Apple II 

leicht gemacht 

von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., 
DM 28. - 


Dies istein Buch, wie es sich 
jeder Apple-Anfänger nur wün- 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dern Apple 
mit einigen durchsichtigen, un- 
komplizierten Beispielen in Ap- 
ptesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver- 
traut zu machen. Damit ist „Ap- 
ple Il leicht gemacht“ das idea- 
le Einsteigerbuch für den rei- 
nen Anwender, der nicht nur 
„auf den Knopf drücken“, son- 
dern zumindest einige Details 
aus der Black Box namens Ap- 
ple erfahren will. 





Aus dem Inhalt: 

Kontrolle des Geräts — Schrei- 
ben und Zeichnen auf dem 
Bildschirm — Geheimnisvolle 
Abläufe: Programme - Ver- 
schiedene Eingriffsmöglichkei- 
ten - Mobile Speicher: Disket- 
ten — Kontrollmöglichkeiten — 
Das Innenleben 


Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 
1984, 226 S., 3 Abb., kart., 
DM 34,— 


„Apple Assembler“ wendet 
sich an alle, die bereits Anfän- 
gerkenntnisse der 6502-Pro- 
grammierung haben — z.B. 
aufgrund des Buches „Apple 
Maschinensprache“ — und nun- 
mehr ein Nachschlagewerk für 
ihren Apple Il Plus/lie/lic su- 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro- 
gramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die- 
ses Buch über 40 Utilities, dar- 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u.a. 

Der erste Teil enthält ein Repe- 
titorium der wichtigsten Befeh- 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam- 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi- 
sion, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der Ile- 
64K-Karte und enthält Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li- 
stet eine große Anzahl nützli- 
cher Interpreter-Adressen. Bei 
den Utility-Programmen liegt 
das Schwergewicht auf Fließ- 
kommamathematik einschließ- 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-Hi- 
res-Grafik vorgestellt. 


Arbeiten mit dem 
Macintosh 


von N. Hesselmann 
416 Seiten, 320 Abb. DM 54,— 


Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 

z. B. die Benutzung der Tasta- 
tur und der Maus, das Einlegen 
von Disketten und den System- 
start. Ganz besonderes Augen- 
merk wird auf die Erklärung der 
speziellen Software-Umge- 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster- 
konzept sowie das Anwählen 
durch Piktogramme gekenn- 
zeichneter Funktionen klar dar- 
gestellt wird. 






Wlaiie 


Macintosh 


Der Umgang mit den Program- 
men MacPaint und MacWrite 
wird erläutert; dies geschieht 
teilweise anhand von Beispie- 
len, die leicht nachvollzogen 
werden können. Ein umfangrei- 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 


BASIC Übungen 

für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb., kart., 
DM 38,— 


Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Übun- 
gen an Hand von reellen Pro- 
grammen beizubringen. Daten- 





verarbeitung, Statistik, kom- 
merzielle Programme, Spiele 
und vieles mehr. Jede Übung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana- 
Ilyse der Lösungsmöglichkei- 
ten, ein Flußdiagramm und ein 
fertiges Programm samt Pro- 
belauf. 





Aus dem Inhalt: 

Ihr erstes BASIC-Programm — 
Flußdiagramme — Übungen mit 
Integerzahlen — Elementare 
Beispiele aus der Geometrie — 
Allgemeine Übungen aus der 
Datenverarbeitung — Mathema- 
tische Berechnungen - Kauf- 
männische Berechnungen — 
Spiele - Operations Research 
— Statistik 


Apple ProDOS 
für Aufsteiger 
Band 1 


von Ulrich Stiehl 
1984, 202 S., kart., DM 28,- 


ProDOS ist das neue „profes- 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple Il Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei- 
cherorganisation und enthält 
grundlegende Beispielpro- 
gramme für Assembler-Pro- 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er- 
heblich vielfältigere und lei- 
stungsfähigere, zugleich je- 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt: 

Ein erster Überblick — ProDOS 
und DOS 3.3 — Interne Spei- 
cherorganisation — Externe 
Speicherorganisation — MLI 
(Machine Language Interface) 
—- ProDOS für Applesoft-Pro- 
grammierer 
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2572B 
2588B 
2581ß 
2582P 
25839 
25840 
25859 
25869 
25879 
25889 
2589 B 
25900 
25910 
25920 
2593® 
25940 
25959 
25968 
25979 
27800 
27819 
27028 
27838 
27040 
27058 
27060 
27079 
27080 
27099 
27100 
27118 
27126 
27130 
27149 
27158 
27160 
27178 
27186 
27196 
27206 
27210 
aT220 
27230 
28008 
28010 
28929 
28030 
29080 
2901® 
29828 
29100 
2911 
29129 
29138 
29140 
29289 
29219 
29220 
29230 
29246 
3dR08 
Sdd1® 
30820 
3039 
39849 
3d050 
3B86d 
30879 
30989 
30899 
3108 
3d110 
31009 
31d1® 
31026 
31939 
32009 
32816 
32929 
338080 
33619 
33629 
33039 
33049 
33059 
33869 
34ddd 
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REM Grafik-Ausgabe 

VTAB 21:Hl = INT (NS / 48) + 1:H2 =5 x Hl 
FOR I = ß TO TS STEP H2 

HTAB2 + I «6 / (7 x Hl): PRINT I;: NEXT 
HGR : HCOLOR= 3:5E = 152 / LOG (AB) 

FOR I = B TO 3:Y = 152 - LOG (10 1 I) = SF 
HFLOT 8.Y TO 2,17: NET 

FOR I = ö 70 TS STIER Hl 

k=1d5 +1=6 / Hl: HPEOT &,155 TO X,154 
IE T= INT IF / H2) = H2 TOEN HPLOF TG X.157 
NEXT 

xl1=6 + Hl:X = Xl: HPLOFT X1,152 

FOR S=6T0 TS 

LF = LF(S): IFLF = ® THENELF = 1 

Y= 152 - LOG (LF}) & SF: HPLOT TO X,Y 
veıH+6 f HL: HRLOT TO X,Y: NEXT 

HPLOT TO X,152: HPLOT TO X1,152: GOTO 25439 


REM Umdrehungsdauer messen 

GOSUB 43096: POKE 35,22: HOME 

HGR : HCOLOR= 3:Y = 9 

Xi1=2x» Ks / 1689: REM 1% 

FOR X = 148 - X1 TO 140 + X1 STEP X1 

HPLOT X,® TO X,154: NEXT 

VTAB 21: HTAB 2: PRINT "-1%": TAB( 38) :"+1%": 
IF PEEK (TD) > 127 GOTO 48990 

SM = 192:Al = KS & 1.1:Fl = 1: GOSUB 37829 
CALL UR: VTAB 22: HTAB 18: CALL ZL 

IF PEEK (254) = Ö G0TO 27128 

PRINT "Fehler";: GOTO 27078 

BY = PEEK (252) + 256 = PEEK (253) + 1 

UT = INT ({BY - KS) =» 1008 / KS + 8,5) / 19 
UA = ABS (UT):UT$ = STR$ (UA): IF UA > 28 GOTO 27119 
IF UA > ® AND UA < 1 THEN UT$ = "9" + UT$ 
UT$ = VZ$( SGN (UT) + 2) + UT$ 

IF UT = INT (UT) THEN UT$ = UT$ + "9" 

PRINT UT$; "%"; 

xX= 146 + (BY -KS) #* 2: IFX< 9 THENX = 9 
IF X > 279 THEN X = 279 

HPLOT X,Y:Y= Y+ 1: IF Y< 155 GOTO 27079 
GOTO 27828 


REM Trigger für Spur-Justage generieren 
IF S{SN,LN) < > JS THEN F = 7: RETURN 
GOSUB 43009: POKE 253,190: CALL JR: GOTO 42909 


REM Ausgang nach BASIC 
HOME : POP : END 


PRINT "Bitte geben Sie ein:": PRINT 

PRINT "POKE 194,64": PRINT "POKE 16384, 9" 

PRINT : PRINT "und laden Sie das Programm neu!" 
GOTO 29219 


HOME : PRINT "Fehler in 'DATA'- Befehlen!" 
PRINT CHR$ (7);: CLEAR : END 


REM ———--——- —— [0 


REM Steckplatz (Slot) auswählen 

F$(5) = LEFT$ (F$(5),35}) + STR$ (SN) + "ti" 
PA = 49152 + 256 # SN: FOR I = 1 TO 7 STEP 2 
IF PEEK (PA + I) = CE(I) GOTO 3985® 

SN = ß:F = 5: RETURN 

NEXT :SA = 49286 + 16 & SN 

Pse%#: FOR I =9 70 255 

PS = PS + PEEK (PA + I): NEXT 

IF PS < > 315583 THENF=6 

POKE 259,5N & 16 

RETURN 


REM Steckplatz Nr. ausgeben 
IF SN = ® THEN RETURN 
Bl = 1: GOSUB 44ß9ß8: PRINT SN 


REM Laufwerk auswählen 
Bl = 2: GOSUB A499: PRINT LN: GOSUB 3405% 


REM Motor ein-/ausschalten 

Bl = 3: GOSUB 44969: PRINT AE$(AE) 

HV = PEEK (SA + 8 + AB): REM Motor ein/aus 

HV = PEEK (SA + 9 + LN): REM Laufwerk 1 / 2 
REM In obigen Befehlen keine "POKEs" verwenden! 
RETURN 


REM Positionieren nach Spur 'S' 


34d1d IF S = S(SN,LN) THEN RETURN 

34020 POKE 251,5 = PH: POKE 252,S(SN,LN) * PH 
34038 POKE 253,BZ: CALL PR 

34848 S{SN,LN) = S: IF B> 13 THEN RETURN 

3495@ REM Spur # ausgeben 

Z3Aaß6d Bl = 7: GOSUB AAßBß: IF S(SN,LN) < d THEN RETURN 
34076 PRINT S{SN,LN);: RETURN 

3aß8ß : 

35088 REM Spur-Nr, eingeben 

35ß1@ H = POS (ß) + 1: GOTO 35039 

3502® PRINT BEL$; 

35030 VTAB V: HTAB H: CALL ZL 

35048 INPUT "":EZ$&: IF EZ$ = '"" GOTO 35029 
35050 S = VAL (EZ$): IF S < B OR S > MS GOTO 35028 
35668 IF INT (S) < > S OR STR$ (S) < > EZ$ GOTO 35028 
35678 VTAB V: HTAB H: CALL ZL: PRINT S;: RETURN 
35088 : 

36ß89 REM Schreibschutz prüfen 

36618 HV = PEEK (SA + 13):S5 = PEEK (SA + 14) > 127 
36028 HV PEEK (SA + 12}: RETURN 

36039 : 

37868 REM Schreiben 

37618 AL = AB # 1,1:Fl = FM:SM = 64 

37028 GOSUB 38@@9: POKE 254,5M 

37038 CALL SR: RETURN 

37940 : 

386 REM Byte-Anzahl und Flußwechselabstand setzen 
38ß18 Al = 65536 — INT (Al): REM 2'er Komplement 
38920 A2 = INT (Al / 256):Al = Al - A2 « 256 
388308 POKE 251,FM({Fl): POKE 252,Al: POKE 253,2 
38940 RETURN 

38059 : 

39ß@® REM Lesen 

39A18 Al = AB:Fl = FM: GOSUB 38ß0dB: CALL LR 
39028 LF = PEEK (254) + 256 = PEEK (255): RETURN 
39938 : 

Aß0B6 REM Fehler-Nachricht ausgeben 

adBıd GOSUB A2000: ELASH : PRINT F$(F); 

40020 NORMAL : PRINT BEL$;: RETURN 

Aamd3d : 

AlBBB REM Lösch-Warnung ausgeben 

AlBd1d T$ = "Spur " + STR$ (S(SN,LN)) + " wird" 
AlD2B IF MO = 3 AND B < 17 THEN T$ = "Alle Spuren werden" 
Ald3B POKE 35,24: VTAB 23: PRINT T$;" gelöscht!" 
4A1lß4B PRINT "weiter? (J/N) "; 

A959 PRINT BEL$;: GET EZ$: GOSUB 4550% 

alß6ß IF EZ$ < > "J" AND EZ$ < > "N" GOTO 41959 
ald7o : 

a2rBÖB REM Zeile 23 und 24 löschen 

a2dıB POKE TT,®: VTAB 23: HTAB 1: CALL ZL 

a2B2B VTAB 24: CALL ZL: RETURN 

arB3B : 

A3008 REM Stop-Hinweis ausgeben 

A3B1B GOSUB 42BBB: INVERSE 

43828 PRINT "STOP MIT JEDER TASTE"; 

A3B36 NORMAL : RETURN 

43040 : 

A4Ö90 REM Cursor zum Ende der Befehlszeile 

AAßld V = Bl + 2:H= LEN (B${Bl)) +6 

AAW2B VTAB V: HTAB H: CALL ZL: RETURN 

Aad38 : 

A5ß00 REM Zeichen-Eingabe ohne Cursor 

45010 EZ = PEEK (TD): IF EZ < 128 GOTO A5@1P 
A502ß POKE TT,8:EZ$ = CHR$ (EZ — 128) 

A5030 : 

A55ßB REM Klein- in Großbuchstaben umwandeln 
45518 IF EZ$ < = CHR$ (96) THEN RETURN 

45520 EZ$ = CHR$ ( ASC (EZ$) - 32): RETURN 

45538 : 

46998 REM Fehler pro Spur ausgeben 

46018 Hl = INT (S / ZE):V = 5 - ZE+ HL + 2 
A6ß26 H = Hl x 4B / SP + 1: VTAB V: HTABH + (SP<A) 
A60308 PRINT S; TABÜH +3 +3» (SP < 4))};LF(S); 
A6GAB RETURN 

Aa6d5B : 

47068 REM Text-Überschrift 

a7ö18 SP = INT (NS / 20) +1 

47020 ZE = INT (MS / SP) + 1: INVERSE 

aAT038 FOR I= GB TO SP - 1: HTAB I # AB / SP +1 
aT648 IF SP < A THEN PRINT "SPUR FEHLER"; 

AT050 IF SP > = 4 THEN PRINT "SP.FEH."; 

ATÖ60 NEXT : NORMAL : RETURN 

a7d7B : 

A8ßÖ® REM Zurück zum Hauptmenü 

A8BÖ1P GOSUB A42B09: INVERSE 

a8629 PRINT "WEITER MIT JEDER TASTE"; 

A863B NORMAL : GOSUB 4590: TEXT 
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A8ß4B : 


49ddp 
4919 
49920 
49039 
49949 
49059 
a9d6P 


REM Menü ausgeben 

HOME : HTAB 5: INVERSE : PRINT TI$ 
NORMAL : PRINT 

FOR B= 1 TO MB:B$ = MID$ (BT$,B,.]) 

IF B$ <> "  THEN PRINT B$;" - ";BS$(B); 
PRINT : NEXT 

GOSUB 21B2B: GOSUB 22028: GOTO 31999 


49078 : 


49989 


REM 


a9ß9B ; 


S5draB 
5öß1d 
50928 
5ß030 
58049 
5BB5P 
S5pdsh 
59078 
afulottn) 
58998 


REM Programm-Initialisiserung 

TI$ = "APPLE IL DISKETTENSYSTEM TEST" 

SPEED= 199: HOME 

HTAB 5: INVERSE : PRINT TI$: NORMAL : PRINT 
PRINT TAB( 6);"von Gerhard Berg - 2.3.1985" 
VTAB 23: HTAB 1: INVERSE 

PRINT "PROGRAMM-DISKETTE AUS LAUFWERK NEHMEN" 
HTAB 5: PRINT "UND LEERE DISKETTE EINLEGEN!"; 
NORMAL : SPEED= 255 

VTAB 12: HTAB 13: PRINT "Bitte warten" 


58188 : 


5190 


51919 
51828 
51930 
51849 
51959 
51969 
51078 
51B89 
51998 
51199 
5111 
5112 


AB = B:FM = 1:MO = 2:KS = 6378:JS = 16 + 16 # (AS > 


4ß) 

MS = AS - 1: DIM LF(MS),S(7,2) 

FOR I = 8 TO 7:S(1,1) = - 1:S(1,2) = - 1: NEXT 
BEL$ = CHR$ (7):ZL = 64668 

FM{l) = 255:FM(2) = 170:FM(3) = 146 
CE{l) = 32:CE(3) = B:CE(5) = 3:CE(7) = 
TD = 49152: TT = 49168:TG = 49216 

LR = HM:SR = HM + 33:UR = HM + 119 

JR = HM + 159: PR = HM + 186 

AE$($) = "aus":AE$(l) = "ein" 

VZE(L) = ":VZ8(2) = " tıyzgl3) = te 
BT$ = "CDEBIAPH TFMSLW UJB" 

MB = LEN (BT$): DIM B$(MB),FB(MB) 


51139 : 


52009 
5281® 
520828 
52838 
52049 
52058 
52669 
52078 
52089 
52999 
52198 
52118 
52129 
52139 
52140 
5215 


FOR I = 1 TO MB: READ B$(I): NEXT 

DATA "Controller-Steckplatz (Slot) #:" 
DATA "Laufwerk (Drive) #:" 

DATA "Laufwerk ein-/ausschalten:" 

DATA Positionieren auf Spur ® 

DATA 1 Spur nach innen,1]l Spur nach außen 
DATA "Positionieren auf Spur:" 

DATA hin und her zwischen Spur 

DATA " " ,Schreibschutz testen 

DATA "Flußwechselabstand:" 

DATA "Schreib/Lese Modus: " 

DATA Schreiben, Lesen 

DATA abwechselnd Schreiben und Lesen 
DATA '" ", Umdrehungsdauer messen 

DATA "Spur-Justage: Trigger generieren" 
DATA Ausgang nach BASIC 


5216B : 


52500 
52518 


FOR I = 1 TO MB: READ FB(T): NEXT 
DATA 9,1,1,2,3,3,2,2,0,2,0,0,4,3,4,9,4,3,® 


52528 : 


53009 
53919 
53029 
53039 
53049 
53959 
53060 
53079 
53089 


FOR F= 1 TO 7: READ F$(F): NEXT 

DATA KEIN CONTROLLER AUSGEWÄHLT! 

DATA LAUFWERK IST NICHT EINGESCHALTET! 
DATA KOPFPOSITION IST UNDEFINIERTI! 

DATA DISKETTE IST SCHREIBGESCHÜTZT! 

DATA "KEIN DISK-CONTROLLER IN STECKPLATZ " 
DATA FEHLER IN PRÜFSUMME DES BOOT-PROM'S! 
DATA SPUR-JUSTAGE AUF SPUR 

F$(7) = E$(7T) +" "+ SITR$ (JS) + Pi" 


53090 : 


54890 
54819 


FOR I = 1 TO 3: READ MO$(I): NEXT 
DATA dauernd, 1 Spur,ganze Diskette 


54028: 


5500P 


S5ölß PS = 


55820 
55030 
55a 
55059 
5506 
55079 
55080 
5509B 
55109 
5511P 
55126 
55138 
55149 
55159 
55168 


REM Assemblerprogramm abspeichern 

d: FOR I = 36864 TO 37174 

READ HV: POKE I,HV:PS = PS + HV: NEXT 
DATA 166, 259,169,6,133,254,133,255 
DATA 164,252,189,149,192,16,251,197 
DATA 251,240,6,230,254,208,2,239 
DATA 255,299,298,238,230,253,208,234 
DATA 96,166,259,36,254,165,251,221 
DATA 141,192,157,143,192,221,149,192 
DATA 8,49,234,234,8,49,2®1,146 

DATA 298,2,239,255,157,141,192,221 
DATA 149,192,112,19,234,172,8,192 
DATA 16,234,189,142,192,96,239,252 
DATA 208, 226,239,253,208,224,44, 254 
DATA 8,16,239,169,3,169,179,157 

DATA 141,192,221,149,192,72,194,72 
DATA 194,136,249,222,208,239,166,259 
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55178 
55189 
55199 
552089 
5521% 
55228 
55236 
55248 
55250 
5526 
55278 
55280 
55298 
55300 
55319 
55320 
55339 
55349 
55359 
55369 
55379 
55380 
55399 
55499 
55419 
55508 
55519 
55529 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


169,3,133,254,198,254, 249,36 
169,9,132,253,189,140,192,16 
251,209,298,4,230,253,48,2® 
261,255,208,249,189,149,192,16 
251,281,179,240,223,200,208,244 
230.,253,16,249,132,252,96,166 
259,189,149,192,16,251,44,9 
192,48,243,261,255,298, 242,44 
48,192,44,64,192,32,8,145 
249,229,169,9,133,254,165,252 
133,255,56,229,251,246,49,176 
6,73,255,239,252,144,4,1P5 
254,198,252,197,254,144,2,165 
254,281,12,176,1,168,56,32 
252,144,185,31,145,32,19,145 
165 ,255,24,32,254,144, 185,43 
145,32,19,145, 259, 254,288, 198 
32,8,145,24,165,252,41,3 
42,5,259,170,189,128,192,96 
164,253,169,10,32,19,145,136 
208,248,96,162,18,292,298,253 
234,56,233,1,298,245,96,1 
48,49,36,32,36,29,28,28 
28,28,28,112,44,38,34,31 
39,29,28,28,28,28,28 


IF PS < > 45695 GOTO 29290 
IN# 6: PR# 


POKE 


35,22:W5 = 1: RETURN 


DISKTEST.START 


POKE 194,64 
POKE 16384, 
RUN DISKTEST 


et ah PAUL 


Apple DOS 3.3 — 
Tips und Tricks 


von U. Stiehl 


2. 


Aufl. 1984, 216 S., mit zahlreichen, 


ausführlich kommentierten Programm- 
listings, kart., DM 28,— 
ISBN 3-7785-1049-5 


Dr. Alfred Hüthig Verlag : Postf. 102869 - 6900 Heidelberg 1 
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ProDOS für Anfänger 


Teil 3: Geheimnisse von BSAVE und BLOAD 


1. FID in Applesoft? 


Wenn Sie bislang noch nicht vom BASIC 
.SYSTEM überzeugt waren, dann sind Sie 
es sicherlich, wenn Sie den nachfolgen- 
den Aufsatz gelesen haben, in dem ich 
Ihnen die bislang noch nicht publizierten 
Eigenschaften der zwei leistungsfähigsten 
BASIC.SYSTEM-Befehle vorstellen 
werde. 

Sie kennen alle das alte FID (File Devel- 
oper) für DOS 3.3, das zum Kopieren von 
DOS-Dateien dient. Dieses Maschinen- 
programm hat eine Länge von ca. 4800 
Bytes. Nun stellen Sie sich einmal vor, Sie 
sollten dieses Programm (fast) ausschließ- 
lich in Applesoft-Basic (mit höchstens 
ganz kurzen Maschinenroutinen) schrei- 
ben. Wäre dies möglich? Wie groß wäre 
dann das Applesoft-Programm? Und wie 
würden Sie vorgehen, damit T-, B- und A- 
Dateien beliebiger Länge kopiert werden 
können? Sie werden jetzt mit Recht ver- 
muten, daß nicht nur ein sehr großes, son- 
dern auch ein sehr langsames Applesoft- 
Programm entstehen würde. 

Nicht so unter dem BASIC.SYSTEM von 
ProDOS! Hier ist es tatsächlich möglich, 
ein Kopierprogramm für Dateien beliebiger 
Art und Größe fast ausschließlich in Ap- 
plesoft zu schreiben, das nicht nur sehr 
kompakt (weniger als 1800 Bytes), son- 
dern auch relativ schnell ist. Dies ist allein 
aufgrund des sehr leistungsfähigen 
BSAVE/BLOAD-Befehls möglich. 
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2. BSAVE und BLOAD 


2.1. Speicherbereich 

Der Speicher des Apple Ille/lic/I| Plus läßt 
sich abstrakt als ein Kontinuum von Spei- 
cherstellen definieren, die von $0000- 
$FFFF bzw. von 0-65535 durchnumeriert 
sind. Dabei bezeichnen wir als Speicher- 
bereich einen durchgehenden Abschnitt 
des Gesamtspeichers, z.B. den Speicher- 
bereich $2000-$3FFF (HGR Seite 1). Die 
Anfangsadresse dieses HGRI-Bereiches 
ist $2000, die Endadresse $3FFF und die 
Länge $2000. Bei der Längenberechnung 
beachte man immer, daß das erste Byte 
mitgezählt werden muß. Ein einfaches 
Beispiel: 

Speicherbereich: 768-770 
Anfangsadresse: 768 

Endadresse: 770 

Länge: 3 (768 + 769 + 770) 

Die Länge errechnet sich demnach durch 
die Formel 

Endadresse - Anfangsadresse + 1, 

d.h. hier konkret 

0-768+1=3 

Vertiefend können wir festhalten: Ein 
Speicherbereich ist eine kontinuierliche 
Folge von Speicherstellen und läßt sich 
durch Anfangsadresse, Endadresse und 
Länge charakterisieren. Im Grenzfall ist die 
Länge = 1; dann fallen Anfangsadresse 
und Endadresse zusammen. Jede Spei- 
cherstelle enthält einen Wert (= Byte) im 
Bereich 0-255 bzw. $00-$FF. Die einzel- 
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nen Speicherstellen haben absolute Spei- 
cherplatznummern, weil der Gesamtspei- 
cher von 0-65535 durchnumeriert ist. Da- 
neben gibt es noch relative Speicherplatz- 
nummern (= Byte-Offset oder kurz Offset) 
im Bereich O bis (Länge - 1). Nehmen wir 
hierzu an, daß die absoluten Speicherstel- 
len 768-770 die Bytes $C1, $C2 und $C3 
(entspricht ASCII „A“, „B“ und „C) ent- 
halten. Dann gilt im einzelnen: 

50300 = 768 - $0000 = 0 ($C61=,„A”) 
60301 = 779 -$0001 = 1 ($C2=,„B") 
$0302 = 770 - $0002 = 2 ($C3=,C") 
Die absolute Speicherstelle 768 ist zu- 
gleich die nullte Speicherstelle, wenn die 
Zählung mit O bei 768 beginnt. Die nullte — 
oder bei „normaler“ Zählweise „erste” — 
Speicherstelle (mit dem Offset = Abstand 
= 0) enthält „A“, die 1. Speicherstelle 
(Offset = 1) enthält „B“ und die 2. und 
letzte Speicherstelle (Offset = 2) enthält 
„C“. Der Byte-Offset liegt damit stets im 
Bereich O bis Länge minus 1. 


2.2. Datei 

Ziehen wir nunmehr zu den weiteren Erör- 
terungen das Bild 1 heran. In der oberen 
Bildhälfte wird ein Teil des RAM-Spei- 
chers, nämlich der für BSAVE und BLOAD 
hauptsächlich in Frage kommende Spei- 
cherteil $0800-$95FF dargestellt. Als 
Speicherauszug (= auf Diskette zu spei- 
chernder Bereich) wählen wir $2000- 
SSFEF (HIGR I). 
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Während der RAM-Bereich als eine konti- 
nuierliche Folge von Bytes im internen 
Speicher definiert werden kann, läßt sich 
die Diskettendatei bzw,. der File als eine 
kontinuierliche Folge von Bytes im exter- 
nen Speicher (= Datenträger: Diskette, 
Festplatte, RAM-Disk usw.) charakterisie- 
ren. Daß eine Datei letztlich in 512-Byte- 
Blocks unterteilt ist, die physisch auf der 
Diskette verstreut sein können und inso- 
fern kein Byte-Kontinuum darstellen, ist 
zunächst irrelevant. 


Die Bytes einer Datei sind absolut nume- 
riert vom nullten bis zum letzten Byte, 
denn beim BSAVE/BLOAD-Befehl bezieht 
sich der Byte-Offset immer auf den Anfang 
der Datei. Betrachten wir hierzu die untere 
Hälfte von Bild 1. Die dort dargestellte 
Datei namens FILE hat eine Länge L von 
$6000 Byies, die von Byte-Öffset B = 
$0000 = absolut nulltes Byte = Dateian- 
fang bis Byte-Offset B = $5FFF = absolut 
letztes Byte = Dateiende durchnumeriert 
sind. Ähnlich wie der Gesamtspeicher in 
Speicherbereiche unterteilt werden kann, 
iäßt sich auch eine Gesamtdatei in 
Dateiabschnitte aufteilen. Im Bild 1 ist der 
Bereich Byte-Offset $4000 bis $5FFF ein 
solcher Teilabschnitt. 


Der sog. EOF (= End of File = ENDFILE 
im ProDOS-Directory) hat eine doppelte 
Bedeutung: Zum einen versteht man unter 
EOF (als Kardinalzanl) die Gesamtzahl al- 
ler Bytes einer Datei, also die Dateilänge. 
Zum anderen bedeutet EOF (als Orainal- 
zahl) die Nummer desjenigen Bytes, das 
dem letzten Byte der Datei folgt bzw. fol- 
gen würde. Man beachte also, daß der 
Begriff EOF nicht mit dem Begriff Dateien- 
de identisch ist. 


Nun kommen wir endlich zum BSAVE/ 
BLOAD-Befeh!, Der BSAVE-Befehl über- 
trägt einen (beliebigen) Speicherbereich 
als Speicherauszug in einen (beliebigen) 
Teilbereich einer Datei, während der 
BLOAD-Befehl einen (beliebigen) Teilbe- 
reich einer Datei in einen (beliebigen) 
Speicherbereich einlädt. Im einzelnen gibt 
es folgende Parameter: 

A = Anfangsadresse des Speicherbe- 
reichs 

E = Endadresse des Speicherbereichs 

L = Länge des Speicherbereichs 

B = absoluter Byte-Offset der Datei 

T = Dateityp 


A- und E-Parameter: Beim BSAVE kann 


theoretisch jede Anfangs- und Endadres- 
se im Bereich $0000-$BFFF angegeben 
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er prRodos BR 


RAM 


$0800 


FILE 


B$0000 B$2000 





B$4000 B$SFFF 


Bild 1: BSAVE BILD, A$2000, L$2000, B$4000 


werden. Wegen BLOAD sind praktisch je- 
doch nur die Bereiche $0300-$03CF so- 
wie $0800-$95FF zulässig, weil $0000- 
$02FF sowie $9600-$BFFF vom BASIC- 
‚SYSTEM als belegt markiert werden. 


L-Parameter: Die Länge ergibt sich aus (E 
- A + 1). Die maximale Länge beträgt 
theoretisch $FFFF = 65535. Beim BSAVE 
muß man neben A entweder E oder L 
angeben, also niemals beide gleichzeitig! 
Wenn man beim BLOAD A, E und L weg- 
läßt, so gelten als Ersatz die beim letzten 
BSAVE benutzen A/E/L-Werte. Wurde ei- 
ne Datei gerade mit BLOAD geladen, so 
kann sie unmittelbar danach ohne A, E 
oder L mit BSAVE zurückgespeichert 
werden (vgl. Bug weiter unten). 


B-Parameter: Da unter ProDOS eine ein- 
zelne Datei 16M groß sein kann, kann der 
B-Parameter Werte im Bereich $000000 
bis $FFFFFF einnehmen. Wenn B fehlt, 
wird automatisch B = O angenommen. Mit 
B meint man stets den Byte-Offset in der 
externen Datei und niemals den 0.g. Byte- 
Offset im internen Speicherbereich. 

Die Werte für A, E, L und B können wahl- 
weise als Dezimal- oder Hexadezimalzah- 
len (mit vorangestelltem $-Zeichen) ein- 
gegeben werden. 


T-Parameter: Dieser Parameter für die di- 
versen Dateitypen (TBIN, TTXT usw.) ist 
nur dann erforderlich, wenn eine Nicht- 
BIN-Datei bearbeitet werden soll. Wenn 
nämlich der T-Parameter fehlt, wird auto- 
matisch eine BIN-Datei (Binärdatei, B- 
Datei) angenommen (daher auch die Be- 
fehlswörter B-LOAD und B-SAVE). Nicht- 
BIN-Dateien müssen jedoch erst mit dem 
CREATE-Befehl erzeugt werden, bevor 
sie mit BSAVE/BLOAD bearbeitet werden 
können. 


Beispiele 

BSAVE BILD, A$2000, L$2000 

speichert die BIN-Daiei BILD (ab Byte- 
Offset 0, weil der B-Parameter fehlt). Wür- 
de eine BIN-Datei namens BILD noch 
nicht auf der Diskette existieren, so würde 
sie vom BASIC.SYSTEM zunächst auto- 
matisch angelegt (= „kreiert”). 

BLOAD BILD 

lädt mangels weiterer Parameter die ge- 
samte BILD-Datei wieder in den alten 
Speicherbereich $2000--$3FFF. 

BLOAD BILD, A$4000 

lädt die BILD-Datei nunmehr in den 
HGR2-Bereich ab $4000. 


CREATE TEXT, TTXT 

BSAVE TEXT, TTXT, A768, E770 

legt zunächst eine TXT-Datei namens 
TEXT an und speichert dann darauf, wenn 
wir das obige Beispiel aufgreifen, die 
Buchstaben „ABC“ ab Byte-Offset O ab. 


BSAVE TEXT, TTXT, BS3, A768, L3 

hängt „ABC“ an das Ende der TXT-Datei 
an, die nunmehr den Inhalt „ABCABC“ 
hat. 


BLOAD TEXT, TTXT, A780, BJ 

lädt die drei letzten Buchstaben „ABC 
der TXT-Datei in den Speicherbereich 
780-782. 


BLOAD PRODOS, A$2000, TSYS 

lädt die SYS-Datei PRODOS in den Spei- 
cher ab $2000. Da der B-Parameter fehlt, 
wird mit dem nullten Byte der Datei begon- 
nen. Und da weder der E- noch der L- 
Parameter spezifiziert wurde, wird die ge- 
samte Datei eingelesen. 


Der BILDTEST (s. Listing), der mit dem 
Bild 1 korrespondiert, packt 3 HGRI-Bil- 
der in eine einzige BIN-Datei. Bild 1 veran- 
schaulicht den BSAVE-Vorgang für das 
dritte HGRI-Bild. 
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2.3. BSAVE-Bug 1.0 

Die oben geschilderten BSAVE-BLOAD- 
Verfahren gelten nur ab Version 1.1 des 
BASIC.SYSTEMSs, das in der Regel in Ver- 
bindung mit PRODOS 1.1.1 benutzt wird. 
Im „CALL A.P.P.L.E“ (März-Heft) wurde 
irrigerweise vermutet, daß nur beim zwei- 
ten BSAVE ein Byte-Offset über das alte 
EOF hinaus möglich sei. Dies ist jedoch 
falsch. Genauer gesagt konnte beim „ver- 
bugten“ BASIC.SYSTEM 1.0 ein BSAVE 
über den alten EOF hinaus nur für den Fall 
Bel 

realisiert werden. Beispiele: 

BSAVE XXX, A5000, BO, L2 

ENDFILE danach 2 

BSAVE XXX, A5000, B1, L2 

ENDFILE danach 3 

BSAVE XXX, A5000, B2, L2 

ENDFILE danach 4 

BSAVE XXX, A5000, B3, L2 

ENDFILE danach wieder 4, 

weil hier B>L (Bug)! 

Ferner unterscheidet sich der neue 1.1- 
BSAVE vom alten 1.0-BSAVE darin, daß 
der 1.1-BSAVE erstens im Falle von 

L < momentanes EOF 

die Altdatei nicht kürzt bzw. schrumpfen 
läßt und daß zweitens über den momenta- 
nen EOF hinaus BSAVESs mit 

B>EOF 

möglich sind, wodurch „Loch“-Dateien 
entstehen können. Beispiele: 


BSAVE XXX, A5000, L1, B$FFFFFF 

erzeugt unter dem BASIC.SYSTEM 1.1 
eine BIN-Datei mit einem ENDFILE von 
16777215 Bytes (= 16M - 1). Unter Ver- 
sion 1.0 würde hier eine Fehlermeldung 
produziert. Für Interessierte: Diese Datei 
belegt 5 Blocks, und zwar 2 (l) 
Datenblocks sowie 3 Index-Blocks. 


BSAVE YYY, A$2000, 1$4000 

BSAVE YYY, A$2000, 1L$2000 

würde unter Version 1.0 nach dem zweiten 
BSAVE die Dateilänge wieder auf L$2000 
schrumpfen lassen, Unter Version 1.1 
würde weiterhin eine Länge von $4000 
ausgewiesen. 


3. KOPY und BATCHKOPY 


Die nachfolgenden zwei Dateikopierpro- 
gramme demonstrieren die ungewöhnli- 
che Leistungsfähigkeit des BASIC.SY- 
STEMs 1.1. 


3.1. KOPY 

KOPY wird mit RUN KOPY gestartet. Es 
schaltet zunächst die 80-Zeichenkarte ein 
— dies kann man streichen — und meldet 
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sich dann mit einem spartanischen Menü 
„BEFEHL (K/G/E):". Man hat nun 4 Op- 
tionen: 

1. E bedeutet E(nde) des Programms. 

2. C bedeutet C(ATALOG) in bezug auf 
das momentane Directory-Präfix. 

3. DIREKTBEFEHL führt einen beliebigen 
Direktbefehl aus, z.B. 

CAT/RAM 

PREFIX/USERS.DISK 

BELERERXRX 

LOCKYYY. 

UNLOCK ZZZ 

USW. 

4. K... ist der eigentliche K(OPY)- oder 
Kopierbefehl. Die Syntax lautet 
K/VOLUMET/FILE1,/VOLUME?/FILE2 
d.h. „K” + „vollständiger Pfadname der 
Ausgangsdatei® + „‚“ + „vollständiger 
Pfadname der Zieldatei“. Die eigentlichen 
File-Namen können identisch oder auch 
verschieden sein, so daß mit dem Kopier- 
vorgang gleichzeitig eine Datei umbenannt 
werden kann. Nehmen wir an, daß sich die 
Datei „PRODOS“ auf der Diskette mit 
dem Volume-Namen „USERS.DISK“ be- 
findet und auf das Subdirectory „SUB- 
DIR” der RAM-Disk mit dem Volume-Na- 
men „RAM“ kopiert werden soll. Dann 
lautet der Kopierbefehl 

K/USERS.DISK/PRODOS, /RAW/SUBDIR/PRODOS 

Man beachte, daß innerhalb des Befehls 
keine Leertasten zulässig sind und daß die 
Volume- bzw. Subdirectory-Namen durch 
Schrägstriche abgegrenzt werden 
müssen. 

Die Anwendung des Programms KOPY 
wird dann empfohlen, wenn einzelne 
Dateien kopiert werden sollen. 


3.2. BATCHKOPY 

Die Optionen 1-3 sind bei BATCHKOPY 
dieselben wie bei KOPY., BATCHKOPY 
empfiehlt sich anstelle von KOPY dann, 
wenn eine Vielzahl von Dateien kopiert 
werden soll. Zu diesem Zweck gibt man 
beim Kopierbefehl zunächst ein nacktes 
„K“ ein, worauf man die Ausgangs- und 
Zielpräfixe festlegen kann, z.B. 

VON PREFIX/ USERS.DISK 

NACH PREFIX/ RAM 

Die Schrägstriche vor dem ersten und 
nach dem letzten Directory-Namen wer- 
den automatisch ergänzt. Danach wird das 
gesamte Ausgangsdirectory Name für Na- 
me angezeigt, und man braucht nunmehr 
nur noch durch „J(a)“ oder „N(ein)“ be- 
stimmten, welche der einzelnen Dateien 
kopiert werden sollen. 

BATCHKOPY ist fast genauso schnell 
bzw. langsam wie der FILER der Firma 
Apple, der allerdings 15mal so umfang- 


reich ist! Wer ein noch schnelleres Kopier- 
programm benötigt, der verwende das in 
„ProDOS für Aufsteiger, Band 2" abge- 
druckte Kopierprogramm PROFID, das als 
reines Maschinenprogramm noch kürzer 
und zugleich ca. 40% schneller ist. In der 
Kürze liegt die Würze! 


Die Programme KOPY und BATCHKOPY 
kommen nicht ganz ohne Maschinenrouti- 
nen aus. Insbesondere der sog. Get- und 
Set-File-Info-MLI-Befehl mußte in Assem- 
bler geschrieben werden. Die entschei- 
dende Stelle in den beiden Applesoft-Pro- 
grammen ist jeweils die Zeile 72, die den 
schubweisen BLOAD- und BSAVE-Befehl 
ausführt. Dies wäre unter DOS 3.3 un- 
denkbar gewesen. Denken Sie jedoch 
daran, daß KOPY und BATCHKOPY nur 
unter dem BASIC.SYSTEM 1.1 funktionie- 
ren. (Das 0.9. PROFID funktioniert unter 
allen ProDOS-Versionen.) 

Wer das Applesoft-Programm näher be- 
trachtet, wird übrigens feststellen, daß ich 
eine Schwäche für ON-GOTO-Konstruk- 
tionen habe, die an die Stelle des fehlen- 
den IF-THEN-ELSE-Befehls treten. 


4. BSAVE-Bug 1.1. 


Vollziehen Sie folgenden Test: 

ıBORE 5000.17 FEOKE 1000072 

. BSAVE XXX, A5000, L1 

. BSAVE XXX, A10000, L1 

. POKE 10000, 0 

. BLOAD XXX 

. PRINT PEEK (5000) 

. PRINT PEEK (10000) 

. CATALOG 

Sind Sie überrascht? 

Der 1.1-BSAVE-Befenhl ändert die beim er- 
sten BSAVE registrierte Anfangsadresse 
später nie mehr. Deshalb muß man stets 
den A-Parameter hinzufügen, sonst kön- 
nen unheilvolle Dinge passieren. Es wurde 
also bei 1.1 ein alter Bug beseitigt und ein 
neuer eingebaut. Dieser Bug kommt bei 
KOPY und BATCH KOPY nicht zum Tra- 
gen. 


OO I OO 0O0O7T om — 


Ill 
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Visible 
Computer 


Ein Simulationsprogramm, das Sie in das Innere des 6502 Mi- 
kroprozessors führt. Sie sehen auf dem Bildschirm, wie die ein- 
zelnen Instruktionen in Zeitlupe ausgeführt werden, wie sich die 
Register und die Flags verändern. Ein unverzichtbares Hilfsmit- 

tel beim Erlernen der Assembler-Programmierung, danach ein 

wertvolles Werkzeug beim Testen Ihrer eigenen Programme. 
Komplett mit einem 6502 Editor/-Assembler, deutschem Hand- 
buch (150 Seiten) und über 30 Beispielprogrammen. 

Für Apple II, IIplus, //e und //c. 
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# 


KOPY 


(Warnung: KOPY funktioniert nur mit BASIC.SYSTEM 1.1!) 


18 PRINT CHR$ (4);"PR#3": PRINT : IF PEEK (116) < 128 THEN 
PRINT "KEIN PUFFER!": END 

12 DATA 32,8.191,196,55,3,176,38,169,1®,141,73,3,32,0, 
191,196,73,3,176,25,162,3,189,58,3,157,76,3.,262,16,247, 
169,7,141,73.3,32,8,191,.195,73,3,176,1,96,32,218,253,32 
DATA 58,255,76,298,3,10.0,2,8,90,0,0,9,0,8,0,8,0,8,0.0.6, 
9,9,128,2: FOR X = 768 TO 843: READ Y: POKE X,Y: NEXT: 
REM GETINFO 
DATA 32,6,227,32,199,222,32,227,223,32,198,221, 
133,133,132,134,32,44,213,269,32,233,227,76,154,218: 
FOR X = 966 TO 925: READ Y: POKE X,Y: NEXT : REM INALL 
ONERR GOTO 24 
HOME : INVERSE : PRINT "#z#x* KOPY ###": 
PRINT "* U.STIEHL x": NORMAL : GOTO 26 
PRINT "SYNTAX?": GOTO 26 
ON E = 1 AND PEEK {222) = 19 GOTO 682: 
PRINT "FEHLER "; PEEK (222); "1" 
CLEAR : PRINT : PRINT "BEFEHL (K/C/E):";: CALL 999,B$: 
ON B$ = "" GOTO 26: ON LEFT$ (B$,1) = "K" GOTO 34: 
IF B$ = "E" THEN POKE 216,6: END 
IF B$ = "C" THEN PRINT CHR$ (4);"CATALOG": GOTO 26 
PRINT CHR$ (4);B$: GOTO 26 
REM SYNTAX:K/VL/NI, /V2/N2 
B=LEN ({B$): IFB< 1® THEN 22 
FOR X =B TO 2 STEP - 1: IF MID$ (B$,X,1) = "," 
THEN N2$ = MID$ (B$,X + 1,B - X): 
N1$ = MID$ ({B$,2,X - 2): X = 2 
NEXT : ON N1$ = "" OR N1$ = N2$ GOTO 22:N1l = LEN (N1$): 
N2 = LEN {N2$): ON Nl < 4 OR N2 < A G0TO 22: 
ON LEFT$ ({N1$,1) < > "/" OR LEFT$ (N2$,1) < > "/" GOTO 22 
FOR X = Nl TO 2 STEP - 1: IF MID$ (N1$,X,1) = "/" 
THEN P1$ = LEFT$ (N1$,X):FlL =Nl - X: 
F1$ = RIGHT$ (N1$,Fl)}: X= 2 
NEXT : IF P1$ = "" THEN 22 
FOR X = N2 TO 2 STEP - 1: IF MID$ (N2$,X,1) = "/" 
THEN P2$ = LEFT$ (N2$,X):X = 2 
NEXT : IF P2$ = "" THEN 22 
REM DIR-READ 
B$ = CHR$ (4) + "VERIFY": PRINT B$;P2$: PRINT B$;P1$: 
PRINT B$:N1$: PRINT CHR$ (4); "OPEN"; P1$;",TDIR": 
PRINT CHR$ (4);"READ";P1$: INPUT B$: INPUT B$: INPUT B$ 
INPUT B$: IF MID$ {B$,2,Fl) = F1$ AND MID$ (B$.Fl + 2,1) 
= " U THEN PRINT CHR$ (4);"CLOSE": GOTO 58 
ON B$ < > !n GOTO 52: PRINT CHR$ (4); "CLOSE": 
PRINT "NAME?": GOTO 22 
REM KOPIEREN 
LL = VAL { MID$ (B$,65,7)):T$ = ",T" + MID$ (B$,18,.3): 
B = :A = 6144:L = 24576: REM $18ßd+$6090-$7809 
E = 1: PRINT CHR$ {4}; "CREATE" ;N2$;T$: GOTO 64: 
REM E=ERROR 
E=9: PRINT CHR$ (4) ; "DELETE" ;N2$: 
PRINT CHR$ (4) ; "CREATE" ;N2$;T$ 
IF LL<LTHENL=LL: ONL > ß GOTO 70: RUN 26 
GCOSUB 72:B =B+L: ONB+L <LL 60T0 66:L=LL-B: 
IF L= THEN RUN 26: REM LOOP 


REM SETINFO 

GOSUB 72: POKE 512,Nl: FOR X = 1 TON: 

POKE 512 + X, ASC ( MID$ (N1$,X,1)}: NEXT: 

POKE 648,N2: FOR X = 1 TO N2: POKE 648 + X, 

ASC {( MID$ (N2$,X,1)): NEXT : CALL 768: RUN 26 
PRINT CHR$ (4) ; "BLOAD":N1$:T$:",A";A;",B";B;,",L'";L: 
PRINT CHR$ (4); "BSAVE":N2$8;T$:", AN; A;T,BUSBET,L";L: 
RETURN 


BATCHKOPY 


{Warnung: BATCHKOPY funktioniert nur mit BASIC.SYSTEM 1.1!) 


1d PRINT CHR$ (4);"PR#3": PRINT : IF PEEK (116) < 128 THEN 
PRINT "KEIN PUFFER!":! END 

12 DATA 32,9,191,196,55,3,176,38,169,1®,141,73,3,32, 
9,191,196,73,3,176,25,162,3,189,58,3,1597,76,3,282,16.247, 
169,7,.141.73,5.32.%.191,195,.73,3.176,1,96.32,218,253,32 
DATA 58,255,76,208,3,19,9,2,0,9,8.0.9,9, 
8,0,0.,9,8.0,8,9.0,8.128,2: FOR X = 768 TO 8453: 
READ Y: POKE %,Y: NEXT : REM GETINFO 
DATA 32,6,227,32,199,222,32,227,223,32,108,221,133, 
133,132,134,32,44,213,209,32,233,227,76,154,218: 
FOR X = 968 TO 925: READ Y: POKE X,Y: NEXT : REM INALL 
ONERR GOTO 24 
HOME : INVERSE : PRINT "*BATCH-KOPY«": 
PRINT "'* U,STIEHL x": NORMAL : GOTO 26 


PRINT "SYNTAX?": GOTO 26 

ON E = 1 AND PEEK (222) = 19 GOTO 69: PRINT : 

PRINT "FEHLER "; PEEK (RZaR); "tt" 

CLEAR : PRINT : PRINT "BEFEHL {K/C/E):":: CALL 909,B$: 
ON B$ = "" GOTO 26: ON B$ = "K" GOTO 34: 

IF B$ = "E" THEN POKE 216,9: END 

IF B$ = "C" THEN PRINT CHR$ (4);"CATALOCG": GOTO 26 
PRINT CHR$ (4);B$: GOTO 26 

REN PREFIX-WAHL 

PRINT : PRINT "VON PREFIX/";: CALL 98®,P1$: 

ON P1$ = "" GOTO 26:P1$ = "/" + PI$ + "/": 

PRINT "NACH PREFIX/":: CALL 909, P2$: 

ON P2$ = "" GOTO 26:P2$ = "/" + P2$ + "/": 

PRINT CHR$ (4); "VERIFY":;P2$: PRINT CHR$ (4); "VERIFY";PI$ 
REM DIRECTORY-READ 

DIM C$(1@9):C = ®: PRINT CHR$ (4); "OPEN"; P1$:",TDIR": 
PRINT CHR$ (4);"READ";P1$: INPUT B$: INPUT B$: INPUT B$ 
C=C + 1: INPUT C$(C): ON C$(C) < > "" GOTO AB:C = GC - 1: 
PRINT CHR$ (4); "CLOSE": ON C = ß GOTO 26: 

PRINT CHR$ (4);"FRE":CC = 

REM DATEI-WAHL-SCHLEIFE 

PRINT :CC = CC + 1: ON CC > C GOTO 26: 

PRINT MID$ (C${CC),2,15);:" J/N "; 

CET B$: ON B$ < > "J" AND B$ < > "j"! AND B$ < > "N" 
AND B$ < > "n" GOTO 46: PRINT B$;" ";: 

ON B$ = "N" OR B$ = "n" GOTO 44: 

B$ = C$(CC):N$ = MID$ (B$,2.15) 

IF RIGHT$ (N$,1) = " " THEN 

N$ = LEFT$ (N$, LEN (N$) - 1): GOTO 48 

N1$ = P1$ + N$:Nl = LEN (N1$):N2$ = P2$ + N$: 

N2 = LEN (N2$): PRINT N1$;'" -> ";N2$; 

REM DATEI-KOPIE 

LL = VAL ( MID$ (B$,65,7)):T$ = ",T" + MID$ (B$,18,3): 
IF T$ = ",TDIR" THEN PRINT " DIRECTORY!";: GOTO 44 
B= :A = 8192:L = 29489: REM $20B0+$509d=$7800 

E = 1: PRINT CHR$ (4) ;"CREATE";N2$;T$: GOTO 62: 

REM E=ERROR 

E = 9: PRINT CHR$ (4); "DELETE" ;N2$: 

PRINT CHRS (4) ; "CREATE" ;N2$,T$ 

IFLL<LTHENL=LL: ONL > ß GOTO 78: GOTO 44 

REM SCHUBKOPIE-SCHLEIFE 

GOSUB 72:B=B+L: ONB+L <LL GOTO 66:L=LL-B: 
IFL=ß THEN 44 

REM SETINFO 

GOSUB 72: POKE 512,Nl: FOR X = 1 TO NI!: 

POKE 512 + X, ASC ( MID$ {N1$,X,1)): NEXT: 

POKE 648,N2: FOR X = 1 TO N2: 

POKE 648 + X, ASC ( MID$ (N2$,X,1)): NEXT: 

CALL 768: GOTO 44 

PRINT CHR$ (4};"BLOAD";N1$:T$;",A";A;",B";B;",L"S;L: 
PRINT CHR$ (4); "BSAVE" :N2$;T$;",Ar;A:",B";B;",L";L: 
RETURN 


GETSETINFO 


[Als DATA-Statements in KOPY und BATCHKOPY enthalten. 
GETSETINFO funktioniert bei allen ProDOS-Versionen!) 


ORG $9398 


Get/Set File-Info US/16.95.85 


Altname laden, dessen Parameter 
(Access/Filetype/Auxtype) 
zwischenspeichern, dann Neuname 
laden und mit geänderten 
Parametern zurückspeichern. 


oo-JooAaAGaudne 
KHK HFEH KK 


* 
DOSWARM EQU $A3Dd 
MLI EQU $BFBß 
BELL EQU $FF3A 
PRBYTE EQU S$FDDA 
* 
: 20 d0 BF GETINFOl JSR MLI :Altname 
4 HEX (4 
: 37 03 19 DA CNTA 
: BO 26 29 BCS ERROR 
21 * 
: A9 BA 22  GETINFO2 LDA +$9A :GET 
: BD 49 03 23 STA CNTB 
: 20 dB BF 24 JSR MLI ;Neuname 
GA 25 HEX C4 
ı 49 #53 26 DA  CNTB 
Bö 19 27 BCS ERROR 
28 
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#315: A2 
#317: BD 
A31lA: 9D 
Ä31D: CA 
A31E: 19 


LDX 
LDA 
STA 
DEX 
BPL COPY 188 VTAB 24: PRINT 
* 119 N= 2 
SETINFO2 LDA #307 ; SET 128 FrRRX= GB TON 
STA CNTB 138 HGR HPLOT 188,X * 28 TO 2B0,X « 29: 
JSR MLI REM Waagrechter Strich, unterschiedlich tief 
HEX (3 PRINT CHR$ (4); "BSAVE BILD, A8192, L8192, Br; 
DA CNTB X = 8192 
BCS ERROR PRINTeR 1 et: 
RTS FORX=B TON 
HGR PRINT CHR$ (4);"BLOAD BILD, A8192, L8192, Bi: 
X * 8192 
PRINT X 7.7. Wale 


r3 
ACCESSA,X 
ACCESSB,X 


BILDTEST 


(Warnung: BILDTEST funktioniert nur mit BASIC.SYSTEM 1 1!) 


‚Alt nach 

;Neu kopieren 
PRINT "BILDTEST": HCOLOR= 7 
B320: 
A322: 
0325: 
NERB: 
2329: 


B32B: 
032D: 


a9 
8D 
20 
63 
49 
BP 
69 


: Neuname 
149 


158 
16 
178 


NEXT PRINT 


B32E: 
331: 
6334: 


29 
28 
ac 


JSR 
JSR 
JMP 


PRBYTE 
BELL 
DOSWARM 


188 NEXT 
* 

CNTA 
NAMEA 
ACCESSA 
FILETYPA 
AUXTYPEA 
STORAGEA 
BLOCKSA 
MDATEA 
MTIMEA 
CDATEA 
CTIMEA 

* 

CNTB 
NAMEB 
ACCESSB 
FILETYPB 
AUXTYPEB 
STORAGEB 
BLOCKSB 
MDATEB 
MTIMEB 
CDATEB 
CTIMEB 


337: 
0338: 
A33A: 
B33B: 
B33C: 
B33E: 
33F: 
B3Al: 
0343: 
B345: 
B3AT: 


GET FILE INFO ($C4) 


Parameter-Count = $0A — 1 Byte 
Name-FPointer — LLHH — 2 Bytes 
Access — 1 Byte, gepokt 
File-Type — 1 Byte; gepokt 
Auxiliary Type — 2 Bytes; gepokt 
Storage-Type — 1 Byte, gepokt 
Blocks used — LLHH — 2 Bytes; gepokt 
Modi fication-Date — 2 Bytes; gepokt 
Modification-Time — 2 Bytes; gepokt 
Creation-Date — 2 Bytes; gepokt 
Creation-Time — 2 Bytes; gepokt 


SET FILE INFO ($C3) 


Parameter-Count = $07 — 1 Byte 
Name-Pointer — LLHH — 2 Bytes 
Access — 1 Byte 

File-Type — 1 Byte 

Auxiliary Type — 2 Bytes 
Null-Field — 3 Bytes 
Modification-Date — 2 Bytes 
Modification-Time — 2 Bytes 


BA 
89 
BB 
1) 
Da 
BB 
d9 
dB 
BB 
88 
DQ 


HEX 
DA 

HEX 
HEX 
HEX 
AEX 
HEX 
HEX 
HEX 
HEX 
HEX 


BA 
$B208 
D9 
BB 
Dann 
dd 
BBaR 
BasH 
Bann 
BBBB 
BBao 


:Nur GET 
:512 


N349: 
Ö3AA: 
BZAC: 
B3AD: 
BZAE: 
#358: 
#351: 
sag: 
A355: BB 
8357: 0 
9359: BB 


88 
8 
B8 
Ba 
BB 
88 
BB 
dB 


HEX 
DA 

HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


D8 
$0289 
N) 
B8 
BRD 
BB 
Bong 
BB0B 
BBBB 
DRnD 
Bann 


;GET/SET 
; 640 


91 Bytes 


lBM "*" KOMPATIBEL IBM "*" KOMPATIBEL * 
Alle Teile unterliegen einer sorgfäligen Endkonirolle und wir 
übernehmen daher volle Garantie für die Funktionslähigkeit, 
sowöhl für die gelieferten Leerplatinen, als auch für die fertig 
| bestückten Boards und Interface Karten, die fast ohne Ausnahme 
mit gesockelten IG's geliefert werden. 
IBM — Kompatible Interface Karten und Malnboards -- IBM 
Chiak Conteodine Karte dir 7 Ren AL DM ale 
car Yicketı Eiard, "KL-2030 DM 26388; 
Mönadhrnme Vefoo.soande "KL-2000 Di ab A2B,- 
15 29 Drucker balerlasa Kaıle KL DM IE 
Coptränken Para Intarlace Harte RL-a0fr O4 Til 
Hualbilurklior Karte, Hadd-kbesich, EERZ, | 


APPLE - DIEKETTEH LAUFWERKE 
Erin CHE m anteol, * IE Ha 
Drbginal Dank dt Lnebernek] 

Dia ra Sala Gimme, Fu ale Erlen 
Baktrreteh [Hak- Land 13ER, a. Kabel 4 Gehen Dh - —+"] 
Ada re ide orte ART a Pike “ 

Chinon Slimline, f43KB, Superleise, m. Kab.+Geh. DM 

Teac 55F, 1 MB unf. Kapazität, Shugarlbus DM 

Teac 55F, kpl_-in Gehäuse, 40/80 Track, 1MByte 

anschlußfertig, mit Umschaltung 40/80 + Kabel UM 

Zweillaufwerk für Apple II C, 143 KB, mit Kabel DM 498,— 

APPLE — INTERFACES + MAINBOARDS = APPLE 

Disk Controller I. 2 Original 0. kompal. Drives "DM  89— 


Eins e 109% Apple kompmiitbul 
DM Ba.- Bel Verwendung des 
Oh Apple:Balrichasyalaenn. 


6 Mon. Garantie 


Reparaturservice 


Super-Confroller 1. 2x Teac 55F, mil Software 
80 Zeich-Karle mit 64K RAM + Soltsw. [Ile 

80 Zeich-Karie II, m. Softswitch, ? Zeichensätze 
16K RAM Erweiterung Tür I und kompatible 

Z 80A Interface Karle für CPM 2.2 


“DM 
UM 
"DM 
"aA 
"DM 


189,— 
198,— 
139,— 
9,— 
88, — 


APPLE -TASTÄTUREN+LEERGEHAUSE+NETZTEILE- APPLE 
Standard Einbau-Taslatur, ASCII, freibet. 9 Tasten 


139, — 


Z 80B Interface Karle für CPM 3.0, m. 654K RAM DM 
Printer-Gralik Interface, Epson kompalible "DM 
Centronic-Paralell Text-Inierface Karte "DA 
| Printer-Gralik Interface, NEC/TTOH kompatibel "DM 
Anschluß Kabel f. Paralell + Grafik Interface Did 
Buffer Gratik-Interface, benutzbar für Drucker 
Epson/NecHtoh/Ökidata u andere m 32K Buffer 
Buller Interface wie vor aber mit 64K Buller “DM 
Anschluß Kabel f, Buffer Interface Karle DM 
232C Serielle Interface Karte "DM 
Zope Gierieite Iniertage Korte, Fulldupfes "Dh 
Sach föpseth) Harte 1. Seirachwicderfgabe “Dh 
Ba Pe Ina Kate ni] 
Eher Kia er im Eirdangpntin "oa 
Eon Wrlier Karl fa] "Dh 
IEEE 486 Insorlace Kane "IHM 
Lora-Kanfo mit Dekiotin und Handbumd DM 
Kiuunk Ken rei. Hekaile und Handbuch "Eh 
PA or arieee Karle (ÜHE # Wien] "Da 
NEE Interface Marta {f, Apde le ieh "N I 
“u Karte (kopwri Uber HAM-Hersich] a TE 
178K AA Erwoiberengi Karbo m Patshasftemm OR Ss 
Z6R, FIAAd Eraaihnrunngs Alan ne Patenten ok Gin 
2000 Veonmnin Exreil-Ö bierinzoineie DM H- 
IC-Tester Interlace Karte {RAMS/TTL 54774) DM 448,— 
Hauptplatine 48K, o. Firmware Eproms, 8 Slots DM 448.— 
Hauptplaling 64K. wie vor DM 498,— 
APPLE o= LEERPLATINEN -_ APPLE 
Leerplatinen der obigen Interface Karlen sind alle in vergoldet, 
m. Bestück-Aufdruck + Bes1.-Plan lieferbar. 


595, — 


98, 
169,— 
34,— 


348,— 
595,— 
39,— 
199, — 
I— 
Ta 
Tal 
119, 
123, ._ 
a— 
dan,-- 
iia— 
19- 


Di 


Doppelbelg. aller Tasten, Groß+Kleinschr Nr N?G DM 
Taslatur wie vor, jedoch mit 15er Block Nr N67 DM 
Taslatur Nr N67, mitsep Gehäuse, kpl. rn Kabel DM 
Seperalte Taslatur IBM-Look, anschlußfertig mit 

Kabel, Dopp. belegt.Tasten, freiprog. Funkt.Tasten DM 
Seperate Taslatur, Eprom progr.-bar, Cursorbfock 
Fastenfeld mit 24 Funktionen, Deutsch 6. ASCII DOM 
Leergehäuse Slandard, passend f,TastaturNr,N?6G DM 
dio wie vor, jedoch passend lür 15er Tast. N67 DM 
Leergehäuse wie Mewa 9000, für Einbau von zwei 
Slimline-Laufwerken + Taslaturanschluß, Plastic Di 
Leergehäuse wie vor, jedoch in Metall-Ausführung DM 
Leergehäuse IBM-Look, f 2 Laufw Standard 5 DM 
Leergehäuse für 1 Slimline Laufwerk, Meiall DM 
Leergehäuse 1, Duo-Disk = 2x Slimline-Laufwerke DM 
Leergehäuse I, Duo-Disk = 2x Standard-Laufw DM 
Leergehäuse f Duo-Disk = ?x Slimline + Netzteil DM 
Schallnetzteile für APPLE u. kompatible Rechner 
+5V/3.5A -SW/O5A +12W/ 2A -12V/0,5A N73 DM 
+5W/5 A -5V/0,5A +12V72,5A -12W70,5a N74 DM 
+5W/7 5A -5V/0,5A +12 W 2A 1270,53 N?5 DM 
DISKETTEN + DISKETTEN-BOXEN =- 
Profi Disk Box, m. Schloß, Klars -Deckel, 100Diskss DM 
Disk Box mit Klars.-Deckel, ca 70 Disketten 5° DM 
Hartbox für 10 Diskeiten, mit Klappdeckel DM 
Disketten, mit Verstärkungsring, 3 Jahre Garanlie 

ABX 100 = 55/50 10 Stck.a 3,9850 Sick a 3,88 500 Stck. a 3,59 
ABX 200 = 55/DS 10 Stck a. 4,08 50 Stck a. 3,98 500 Stck. a 369 
ABX 400 = DS/DD 10 Stck a 4.9850 Sıck, a 4,88 500 Stck. a 4.59 


178,— 
249,— 


298, — 


399,— 
99,— 
119,— 


159,— 
198,— 
198,— 

19,90 

98,— 
109,— 
179,— 


99,80 
119,80 
Man 
49,— 
28,— 
6,% 


APPLE -- ORIGINAL + KÖMPATIBLE - COMPUTER -- APPLE 


APPLE Ile, 64KRAM, Ascii-Tastat + UHF-Modul 
APPLE Ile. Einstiegspaket = Compuler 64KRAM, 
+ Philıps-Monitor 18 Mhz grün + Siemens F122 - 
Laufwerk 143K m Controller + Lerndisketia 
APPLE IIG, 123 KRAM, ASCHE Tastatur 

APPLE IC, wie vor, jedoch deutsche Tastatur 
MAGINTOSH System kompfeitm Mouse+Tastatur 
+ Macwrite/Macpaint, Systermguide-Disketle 
MEWA-48K, Apple kompat,, Netzt 5Amp, Tastatur 
mit Dopg-Belegung + 10 frei Prag Tasten, mil 
UHF-Mod, ohne Firmware Eproms. 

MEWA-GAK. wıe vor jedoch mit 15er Block 

MEWA 9000er Serie_ mit seper Taslat_DIN o_ASCIl 
m. dopp-belegl Funkt-Taster, Cursöorbl + t5er 
Block Netzt 5 Amp „ Gehäuse für 2x Siimline- 
Laufwerke UHF-Modulator, 0. Firmw -Proms 
{12KROM}, 48K RAM 

MEWA 9000-64-C, wie vor jedoch 64K RAM 
MEWA 93000-64-C Einstiegspaket, wie vor, jedoch 
mit 1 Disk Drive eingeb + Disk-Conir + Monilor. 
grün 

IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis 


DM 2198,— 


DOM 3099,— 
DM 2795, — 
DM 2998, — 


DM 5995,— 
DM 698,— 
DM 728,— 
DM 998,— 


DM 1098,— 


DM 1898,— 
DM 39 — 


rt. MATRIK- UND TYPENRAD - DAUCKER — ""*"'""* 


CP-80 Matrix Drucker, Epson kompal ,vollgrafikt 
CP-80 X mit eingeb Inlerlace für VC 64 f_Sim 8 
SPEEDY 1009-80, Epson kompat , 100 2/s, v -grafıkf 
GEMINI 10%, Neu mil Texisp., 100 Z/s , 9x9 Mat 
GEMINI 15X, wie 10%, jedoch bis 375 mm Papierbr 
ITOH 8510 B, Die Zuverlässigkeit in Person 

JUKI 6100, Typenraddr., 22 Z/s_ TA-Typenräder 


Computer-Arlikel Nachnahmeversand unirei, Zwischenverkauf vorbehalten 


Leerpiatinen mit der Kennzeichnung 

Leerplalinen mit der Kennzeichnung 

Leerplalinen mit der Kennzeichnung 
Experimentier Platine, für Appte SlIot EX300 
Leerplatine Moiherboard, ABK, mit Best. -Aufdruck 
Leerplatine Molherboard, 64K, mil 6502 + 7BO 
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"DM 


+ DM 


DOM 


DM 
DM 


J9,— 
24,50 
33.— 
29,90 
66,— 
39, — 


Telafon (0212) 75449 


Angebote freibleibend unter Anarkennung unserer Lieferbedingungen. Technische Anderungen vorbehalten. 
Warenzeichen der Fa. Apple-Campuler Inc., Kalifornien. Ware mit Rückgaberecht, besonders gekennzeichnel, 
werden. 'IBM' ist eingelragenes Warenzeicher der Firma IBM GmbH Ffm. 


COMPUTER CENTER CONEX 


5650 SOLINGEN 11 - Postfach 110206-7 T 


DM 739,— 
DM 899, — 
DM 759, — 
DM 998.— 
DM 3198,— 
DM 1475,— 
DM 1495, — 


"Apple ist eingetragenes 
muß Ireı zurückgeschickt 


ERICH-WILLI MEYER 


6343 FROHNHAUSEN Postfach 70 11 


Telefon (027 71}350 71 


Faralod, Giock, mi Ehre 

dk; weh Wr, Jockereh hl DO Bee 
ra Adrian, pechach mil SEE Brei 
12H RAul Kario; mir 0 ieh KL ih 
rn echt KL Lina 
arten Arad, AS, Olsk-Cautraller 
Ciptreunbes, Chöre öiralbeke 

und Lighipen-Port 

Eprom Writer Karte {bis 128K benutzbar) 
Hardisk/Winchester Host-Adapter Karte 
Mainboard XT Version, 8 Slots O besiückl 
mit 1 Boot-Eprom, 6 Eprom-Platze frei 
dto. wie vor, jedoch mil 128K bestücki "KL-1005 DM 

dto. wie vor, jedoch mit 256K beslückt "KL-1006 DM 
Mainboard PC Version, 8 Siots, 64K bestückt 

mit 1 Bool-Eprom, 6 Eprom-Plätze Irei "KL-1010 Did 

dio. wıe vor, jedoch mit 128K bestückt "KL-1011 DM 

dio. wie vor, jedoch mil 256K bestückt "KL-1012 DM 1296, — 
Beiden mit * gekennzeichneten Arlikefn gehört zum Lielerumlang 
ein Manual. und z. T. ein Schaltbild. 

Preisäisten + Prospekle kostenlos gegen frankigrten Rückumschlag 
mM — Kompatible Leepiäinen + Bowdi - 

Dik Gönner ER Orema ü 

Ecken Grab Vebes Dad Abi 

SE Inerioce Karla 

Eanitanach Parallel lange Kan 

Muller innen Bone 

Efron Werken liiarkace Karte 

bau rd aan 

Mainbasnd KT Version, Bots 

Kinbaad DE Yrtalen, B Slate 

HA rd har Eich Erwonllonunmg 

Alle Leurplahnen wenden mi Bestschugeplan goßslen 
Fender, unenil verlinpehr, Liefotung gogan Auffırwia 

IBM, — Gshkuns/Nuinelie/TanlaturanDiakörieen —- DM 
Rechner Leergehäuse f. Einbau v. 2 Drives DM 198,— 
Profi-Taslalur, m. Kabel im Gehäuse, ASCII DM 398,— 
dto. wie vor, jedoch deutsche DIN Belegung DE 418,— 
Standard Tastatur, IBM-Look, ASCI DM 299,— I 
Neizteil, mit Ventilator, 100 Watt DM 298,— 
dio, wie vor jedoch 135 Watt DM 338,— 
Diskellen Laufwerk, 2x40 Track D$S/360 KB DM 398,— 
Harddisk 19MByle, kpl. m. Xebec Controller DM 2990, — 


Sonderkste gegen Rückporlo. Kalalog gegen 3 DM in Briefmarken 


Fe 
"KL-20 DRM 
KL 


H.= | 
SR, 
GH. 
240,- 
S3- 


"KL-2071 DM 
"KL-2022 
*KL-1004 
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von N.G. Barbieri 


Teil 3: Tricks über Tricks 


Was ist eigentlich der Applesoft-Interpre- 
ter? Für den Applesoft-Anfänger ein unbe- 
kanntes Wesen im Apple, das für Dauer- 
belästigung mit „SYNTAX ERROR” sorgt; 
für den Applesoft-Kenner ein persönlicher 
Gegner, den es unbedingt auszutricksen 
gilt; und für den Assemblerprogrammierer 
schlicht und einfach eine Ansammlung 
von Maschinenroutinen, die nach Möglich- 
keit durch eigene Routinen aufzurufen und 
zu erweitern sind. Dies setzt jedoch ge- 
naue Kenntnisse über Aufbau und Struktur 
des Interpreters voraus. 


N 


oe) 


a ve Y 





BOX.COPY 


Damit kommen wir zu der in diesem Bei- 
trag abgedruckten Utility BOX.COPY. Wie 
bereits angekündigt, handelt es sich um 
das punktweise Kopieren des Inhalts ei- 
nes in der HGRT-Seite definierten Recht- 
ecks auf eine andere Stelle derselben 
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Graf-quattro 


Seite oder wahlweise auf die HGR2-Seite. 
Bindet man diese Utility in die Routinen 
der vergangenen Beiträge ein, dann ist es 
von Applesoft aus sehr einfach: Cursoren 
einmal positionieren, dann ein zweites 
Mal, ein POKE 255,0 für Übertragung 
HGR1-HGR1 oder POKE 255,1 für Über- 
tragung HGRT-HGR2, ein CALL 25297, 
und die Sache läuft schon. Will man nur 
diese Routine allein in eigene Programme 
einbauen, dann immer - in der Reihenfol- 
ge X1LOW, X1IHIGH, Yi und X2LOW, 
X2HIGH, Y2 - die Eckwerte der ursprüng- 
lichen Box in $0304 (964) bis $03C9 (969) 
und die Eckwerte des Zielgebietes in 
$03CA (970) bis $OSCF (975) poken, Sei- 
tenflag in $OOFF (255) nicht vergessen 
und nun CALL 25297. 


Zu dem eigentlichen Assemblerpro- 
gramm, insbesondere für diejenigen, die 
in der Maschinensprache ihre ersien 
Schritte wagen, ist noch einiges zu sagen: 
Es handelt sich um eine reine „Bit-an/Bit- 
aus-Übertragung“ ohne Rücksicht auf das 
letzte Bit oder die Positionierung (d.h. Co- 
lor-Bereich oder gerade und ungerade Hi- 
res-Spalte), so daß beim Übertragen von 
farbigen Ausschnitten komische Farbver- 
schiebungen eintreten können. Demge- 
genüber klappt es bei schwarzweiß immer. 


Das Programm besteht aus zwei Teilen: 
Der erste Teil untersucht die relative Posi- 
tion der zwei Rechtecke und entscheidet, 





ob das Kopieren von links nach rechts und 
von oben nach unten oder umgekehrt ver- 
laufen soll, da es für den Fall, daß sich 
Ursprungs- und Zielbox überschneiden, 
passieren könnte, daß man kopiert, was 
schon einmal kopiert worden ist. Das Pro- 
blem ist ähnlich wie beim Moven von Spei- 
cherbereichen, nur daß hier die Über- 
schneidung zweidimensional sein Könnte. 
Der zweite Teil (ab LOOP) holt sich ein- 
fach einen Punkt von einer Stelle und 
bringt ihn an einer anderen Stelle unter, 
bis der ganze Inhalt der Box übertragen 
worden ist (siehe auch Kommentar). 





Drei Tricks für Anfänger 


16-Bit-Vergleich 

Jeder kennt die CMP-Funktion (Compare) 
zum Verzweigen (Branch) je nach Carry- 
oder Zero-Flag, obwohl gelegentlich beim 
Bestimmen, was größer, gleich oder klei- 
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ner ist, Verwirrungen entstehen können. 
Belegen aber die zu vergleichenden Werte 
zwei Bytes (wie im Falle der X-Koordina- 
ten), ist die einfachere Version erst ein 
Vergleich der High-Bytes und, wenn sie 
gleich sind, ein zweiter Vergleich der Low- 
Bytes, um die Sache endgültig klarzuma- 
chen. Der im Programm gezeigte Weg 
(Trick Nr. 1) ist kürzer und schneller. Erst 
ein Vergleich der zwei Low-Bytes, um das 
Carry-Flag entsprechend zu setzen, dann 
eine Subtraktion (mit Carry) der zwei High- 
Bytes, so daß am Ende die üblichen Bran- 
ches erfolgen können. 


16-Bit-Dekrement 

Was beim 16-Bit-Inkrement klappt, d.h. 
das High-Byte wird dann inkremenitiert, 
wenn das Low-Byte den Wert $00 ein- 
nimmt (ansonsten BEQ), ist beim Dekre- 
mentieren nicht gegeben, da der Wert $00 
des Low-Bytes auch mitgenommen wer- 
den muß. Also greift man normalerweise 
zur 16-Bit-Subtraktion, wobei vom High- 
Byte immer eine O mit Carry subtrahiert 
wird. Mit dem kleinen Kniff (siehe Trick Nr. 
2) wird beim 16-Bit-Dekrement auch die O 
immer mitgenommen. 


HSCRN-Routine 

An sich hatte ich ursprünglich vor, diese 
Routine als separate Utility zur allgemei- 
nen Benutzung zu gestalten, aber dann 
habe ich es mir anders überlegt. Trotz 
ausgedehntem Einsatz von Zeropage- 
Pointern ist das bitweise Übertragen auch 
so langsam genug! Überträgt man eine 
Box in der Größe der ganzen Grafikseite, 
d.h. 53760 Punkte, dauert dieses etwa 33 
Sekunden. Eine gesonderte Routine hätte 
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für jeden einzelnen Punkt zusätzlich ein 
JSR und ein RTS gekostet, also ganze 12 


‚Zyklen mehr, und das macht sich be- 


merkbar! 


Ich möchte dem Leser aber eine separate 
HSCRN-Routine nicht vorenthalten. Die 
Routine HSCRN ist völlig relokativ, so daß 
man wie folgt vorgehen kann: 


Ein BLOAD HSCRN, A... an jede beliebige 
Stelle. Danach die in Frage kommenden 
Koordinaten in der üblichen Reihenfolge 
(XLOW, XHIGH und Y) in $0000, $0001 
und $0002 poken, dann CALL... (Stelle 
von A = Anfangsadresse der Routine), 
danach ein N = PEEK (3). Ist N = 0, dann 
ist der angepeilte Punkt schwarz, ist 
N < > 0, entsprechend weiß. Einfach, 
nicht wahr? 


Mit dieser Folge sind die Assembler-Rou- 
tinen für das erste Modul der Serie Graf- 
quattro komplett. Jetzt heißt es zusam- 
menstellen, also Diskette mit allen Assem- 
bler-Routinen in das Laufwerk legen und 
dann: 


BLOAD XPLOT 
BLOAD CURSOR 1 
usw. bis 


BLOAD BOX.COPY 
Danach: 
BSAVE GRAF.QUATTRO1, A$6000, L$466 


Wer sich diese Mühe nicht machen will, 
kann auch die entsprechende Peeker-Dis- 
kette bestellen! 


Eigentlich könnte jetzt jeder Applesoft- 
Programmierer seinen eigenen Hires- 
Page-Editor selber schreiben. Nichtsde- 
stoweniger wird mein eigener Editor dem- 
nächst im Peeker erscheinen. 


grafik 4 electronic a 























Neue Preise # 8 


IBM-PC/XT-COMPATIBLE COMPUTER+ZUBEHÖR 
Mainboard XT f. 16bit+256K-RAM+B8 Slots, Leerkarte 
Disk Controller leer (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color RGB + Video Graphik Leerkarte 
Parallel Printer Leerkarte 
Bir SEE 
Multi 1/O Leerkarte (Printer, Ser., Game, Uhr gepuffert) 
384K-Multi /O Leerkarte w.o. 
Mainboard XT-16bit+ (bis 256K-aufr.) + 8SI. best. +gepr. 
OK + Boot Eprom 
Mainboard w.o jedoch 256K-vollbest 
64KB-RAM-Chip-Aufrüstsatz(9 Stück) einzeln geprüft! 
Disk Controller gepr. (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 
Color RGB + Video Graphikkarte gepr. 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 75,—) 
512K-RAM-Karte gepr. (OKB) 18 
384K-Multi /O Karte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff. OK + RAM-Disk/Spooler/Uhr Softw. 54 
384K-Multi /O w.o. vollbest. + gepr. 
Multi /O Karte (Par.+Ser.+Uhr gepuffert) gepr. 
fi-Funktionstastatur dt. oder ASClI+15er Block 
KL NAT ENTE Tel TER UETGLA ETF ATE ETICEHTE 
360KB-Diskdrive Slimline ohne Gehäuse 
XT-256K-16bit Rechner (incl. Boot-Eprom)+360K-Drive + Contr. 
FF. Tastatur im IBM-look like Geh.+130W-Netzteil best+gepr. 2.399,-- 
XT-256K w.o + Color-RGB + Video-Graphik-Karte 2645,-— 
XT-256K w.o aber mit Monochrome-Graphik-Karte+par. Printer int. 2899,-- 
IBM-PC-Systemeinheit + Laufwerk 37 
IBM deutsche DIN-Tastatur 
IBM-Bildschirm Color 
PC 10-Commodore dt. Tast. 
GENIE 16 C (256K-RAM bis 640K aufr.) 2 x 360K-Drive, 
ser. + par. Printer - incl., dt. Tastatur 
Software+Manual für IBM+compatible Geräte 
Microsoft flight simulator 





Lotus 1-2-3 
Framework 





phony 
APPLE-BUS COMPUTERPLATINEN+PERIPHERIE 





Motherboard durchkontaktet mit Lötstoplack 66,-- 
M-board Il 48K, gesockelt, vollbest.+gepr. 429,-- 
M-board Il 64K+Z80 CPU, gesockelt, v.best.+gepr 524,-- 
M-board Ile 64K vollbestückt+gepr. 749,-- 
APOLLO Il Kunststoff-Leergehäuse 95,-- 
APOLLO Il Gehäuse incl. Funkt.-Tast 275,-- 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 

Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte 

PAL-Modulatorkarte, je 18,95 
Entwicklungslochraster-Leerplatine durchkontaktiert 28,50 
16K-Speicher-Karte geprüft 85,-- 
APPLE orig. 16K-Language Karte gepr. 125,-- 
Z-80 CPU-Karte geprüft 77,-- 
Controller DOS 3.3-Karte geprüft 78,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr. 145, 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 95,-- 
8bit par. Grappler-Int+64K-Buffer+Kabel gepr. 555,-- 
Seriell-Interface-Karte V24 geprüft 99,-- 
Super-Seriell-Interface Karte gepr. 169,-- 
80-Zeichen/24-Zeilen-Karte geprüft 119,-- 
802/24Z-Karte+Softswitch-Schalter Leerplatine " 45,-- 
802/24Z-Karte+Softswitch-Schalter geprüft 145,-- 
IEEE-488 Int. Karte gepr. 375,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr. 159,-- 
128K-Speicher-Leerkarte 39,-- 
128K-Speicher-Leerkarte+Software+Manuel 99,-- 
128K-Speicher-Karte+Software geprüft 385,-- 
256K-Speicher-Leerk. +4 Spezial ICs+Software 195,-- 
256K-Speicher-Karte+Software geprüft 495,-- 
Maus incl. Software 188,-- 
EPROM-Burner (2708/16/32/64) geprüft 119,-- 
Modem Euronorm-Karte gepr. + Software + Man 495,-- 
UHF/TV-Modulator universell 27,50 


Lüfter anclipsbar (220 V) 95,-- 
Dataphon s21d Akustikkoppler-FTZ 

[0] BR YA ER ET TE TER TORE Te Te ge 

APOLLO 7/ (64K)+Disk II F+Contr.+12”-Monitor 


APOLLO // ASKF (48K) w.o + Disk II F+ Contr. 

APOLLO // ASKF (48K) w.o jedoch 2 x Disk II F+ Contr. 
Aufpreis für M-board // 64K+Z80 CPU CE 
APPLE-DuoDisk, 2 x 143 KB+Controller orig 2185,-- 





APPLE-Disk // Laufwerk+Contr.+Kab. DOS 3.3+ProDOS orig. 777,-- 


APPLE-Disk // (2. Laufwerk) orig 666,-- 
Disk //+Contr.+Kabel DOS 3.3 (Siemens) im Geh 567,-- 
Disk // (2. Laufwerk, Siemens) im Geh 498,-- 
Disk //F+Contr.+Kab. DOS 3.3 (1/2 Höhe) im Geh 456,-- 
Disk //F (2. Laufwerk, 1/2 Höhe) i. Geh 387,-- 
Erphi Duo-Disk 1,2 MByte incl. Netzteil+Contr. 1999.-- 


Maus f. Apple // incl. Manual+Software 
APPLESOFT+Turorial+Reference Manual engl 
APPLE-DOS 3.3 Manual engl. 








+ Disk orig. 
APPLE-Pascal Reference+Operating Manual engl. 
APPLE-Pascal USCD 1.1. Disks+Manuals orig. 
APPLE-Pascal Reference Hb. dt 
APPLE-Pascal Language Hb. dt 


3 
Software+ Manual 

apple how to, apple soft tool kit, cp/m basic compiler, cbasic, 

dbase // ver. 2.4, wordstar+ mailmerge+spellstar mit installprogramm, 
apple logo, datastar, calcstar, pfs file, pfs grapg, pfs re+port, apple 
fortran, cp/m c language, spitfire simulator, c-programming language, 
flight simulator, visicalc, visischedule, visitrend, multiplan, supersort, 
microsoft cobol 80, microsoft fortran 80, dgraph+dbase utility. 


APOLLO //e (64K) PAL+15er Block, vollbest. und gepr. 
APOLLO //e 128K+802/24Z-Karte 

USE ER Gyr re 1, 

APPLE //e (64K)+Disk II F+Contr+12”-Monitor 
802/24Z+Softswitch+64K-RAM-Karte geprüft 

APPLE //c (128K) dt. Tastatur 

Z80 Karte gepr. f. APPLE //c+RAM-Disk-Software Hb. -— 
Macintosh System (128K) 5945,-- 
Macintosh System (512K) 6987,-- 





EPSON GX 80+, *NEU*NEU* f 


EPSON RX 80+, 8bit/parallel 869,-- 
EPSON RX 80F/T+, 8bit/parallel 1019,-- 
EPSON RX 100+, 8bit/parallel 1289,-- 
EPSON FX 80F/T+, 8bit/parallel 1329,-- 
EPSON FX 100+, 8bit/parallel 1739,-- 
EPSON LQ 1500+, 8bit/parallel 3295,-- 


EPSON Traktoraufsatz für FX 80 129,50 
APPLE/EPSON-Drucker Graphic-Interface+Kabel - 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 
BROTHER-Typenraddr. HR 15XL 8bit/par. neustes Mod. 
STAR SG10, NLQ-+ IBM-Zeichensatz, bit/par. 






Zenith ZVM 123 gr. 12” oder Zenith ZVM 122 or. 12” 15 MHz — 
SANYO DM 2212 12” orange 15 MHz 295,-- 
SANYO 9112 Monochromer Monitor 12”, gr. 587,50 
Monochromer 12”-Monitor entspiegelt gr. o. or. 22 MHz 389,-- 


Disketten in Box+ Aufkleber I. Wahl 10 St./100 St. a 


5,4” Verstärkt BASF Ki 
SCOTCH 


1X, SS/SD ER GRAN) ER: KHA) 
4,39/ 4,19 4,88/ 4,78 4,57/ 4,37 3,96/3,76 3,25/2,95 
ER IH de RC: VAN RT ENY ERW C72.RR} 
5,79/ 5,59 7,68/ 7,28 
LOS TR: ii 

13,89/12,89 14,87/13,87 


4,49/ 4,39 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 
5 8,58/ 8,28 

VOTE RT RT CH EaZär/ 

4,49/ 4,39 6,68/ 6,48 


LLOR- TAKE 5 Ta R et: 
Zweiseitig 14,99/14,29 





3M-Scotch 5'.:” Flüssig-Reinigungsset (2 Disk.) einseitig 48,95 
BASF 5.” Reinigungsdiskette einseitig 48,50 
5".” Disketten-Archivbox für 10 Disks (1 St./10 St.) 5,75/54,95 
5'." Disketten-Archivbox für 15 Disks 3M 19,95 
5" Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 


5'«” Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
54” Disk-K.K. Rauchglas, abschließb. {f. ca. 80-100 Disks) 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 
4000 Et-Aufkl. doppelr. (107 x 36 mm auf 240x 12” pert. Trägerp.) 
16000 Etiketten-Aufkleber w.o. 

4000 Etik--Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 


OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten. sonst N.N.+V.S. ab DM 30,-- 









Öffnungszeiten: Mo, Di, Do, Frv. 10-18 h, Miu. Sav. 10-14 h.la.Sav. 10-18 h 
Telef. Best.: Mo. Di, Do. Fr von 10-19 Uhr, Mi u. Sa wie Öffnungszeiten 


GEWÄHRLEISTUNG: 6 Monate. auf alle bei uns gekauften Geräte, durch 
unsere eıgene Ser.ice-Werkstatt 

REPARATUREN an Apple + Compatıble Geraten + Zubehör führt unser 
Speziallistenteam garantıert zuverlässig + besonders Kostengunstig aus 
Sprechen Sie mit uns. 


electronic a 


Telex: 0772642 aaa-d 

Habsburgerstraße 134 

7800 FREIBURG, Tel. (07 61) 276864 
Bauelemente - Bausätze - uP's 

Meßgeräte - Zubehör - Fachliteratur 

Fachgeschäft für Elektronik + Mikrocomputer 

















25 


BOX.COPY 


26 


GOOJODTARONDD HM 





ORG $62D1 


BOX.COPY 


u | 


von N.G. Barbieri/1985 
Aufrufen mit CALL 25297 


Kopiert den Inhalt einer Box 
bitweise auf eine andere 
Stelle derselben {HGRl} oder 
der anderen (HGR2} Grafik- 
seite. 


= hr Ik rer + 


Applesoft-Routinen u. -Pointer 


* 

HPOSN EQU $FAll 
HPLOTO EQU $F457 
GBASL EQU $26 
HMASK EQU $38 
HCOLORZ EQU $E4 
HPAG EQU $E6 

$ 

* Cursorposition der 
* ursprünglichen Box 
* 

CAIXL EQU $3C4 
CAIXH EQU $3C5 
GALY EQU $3C6 
CARXL EQU 9307 
CARXH EQU $3C8 
CA2Y EQU $3C9 

+ 

* Cursorposition 

* des neuen Platzes 
3 

CUlXL EQU $3CA 
CUlXH EQU $3CB 
CULY EQU $3CC 
CU2XL EQU $3CD 
CURXH EQU $3CE 
CU2Y EQU $3CF 

* 

* Zähler für X- u. Y-Richtungen 
* 

COUNXL EQU $1D 
COUNXH EQU $I1E 
COUNY EQU $1F 

* 

* X,Y-Koordinaten des zu 
* übertragenden Bits 
2 

XLOW EQU $09 
XHIGH EQU $®1 

r EQU 982 

* 

* Links/Rechts-Flag 
3 

XFLAG EQU $B3 

* 

* X,Y-Zielkoordinaten 
= 

XLOW2 EQuU $B6 
XHIGHZ EQU $#7 

Y2 EQU $98 


L 3 

* Oben/unten-Flag 

* 

YFLAG EQuU 389 

* 

* Temporäre Ablage für beide 
*» X-Koordinaten u. X-Zähler 

* 

TEXL1 EQU $F9 

TEXHl EQU $FA 

TEXL2 EQU $FB 

TEXH2 EQU $FC 

COXL EQU $FD 

COXH EQU $FE 

E 3 

* Grafikseite-Übertragunsflag: 
* wenn ® auf HGRl, sonst auf HGR2 


* 
PFLAG EQU $FF 
* 
* 





c6 B3 88 
cc #3 89 
B6 99 
9 
92 
93 


LDA 
CMP 
BNE 


Wenn beide 
auf 2! 


LDA 
STA 
BNE 


CAILY 
culY 
STEP1 


Y gleich, dann Flag 
+$2 


YFLAG 
TESTX 


Feststellen, ob von oben nach 
unten oder umgekehrt und YFLAG 
entsprechend setzen. 


TEPI BCS 
LDA 
STA 
BNE 
LDA 
STA 


DOINC 
#$l 
YFLAG 
TESTX 
+$0 
YFLAG 


Wenn Übertragung auf der an- 
deren Seite, dann egal 
welche Richtung! 


ESTX LDA 
BNE 


Festellen, 


»*kE%* »* 


LDA 
CMP 
BEQ 
BCS 
BCE 
LDA 
CMP 
BNE 


Jetzt wird 


* 
* 
* 
* 
* 
* 
* 


LDA 
CMP 
BEQ 


STA 
JMP 
STEP2Z BCS 
DOXDEC LDA 
STA 
BNE 
DOXINCG LDA 
STA 
* 
LDA 
CMP 
BNE 


* 

RETL LDA 
STA 
RTS 


gleichen Y- 
auf 2 steht! 


PFLAG 
DOXING 


ob von links nach 


rechts oder umgekehrt und XFLAG 
entsprechend setzen. 


CAILXH 
CULXH 
TXLOW 
DOXINC 
DOXDEC 
CAlXL 
CUlXL 
STEPZ 


Wenn gleiche X- und Y-Werte u. 
gleiche Seite, warum übertragen? 


klar, warum bei 
Werten das YFLAG 


YFLAG 
#$2 
RETl 


XFLAG 
STEP3 
DOXINC 
#$1 
XFLAG 
STEP3 
#50 
XFLAG 


CAlY 
CARY 
DOIT 


#320 
HPAG 


Für den Y-Zähler testen, was 
wovon subtrahiert werden 


muß! 


ulT 


STA 
LDA 
BEQ 
BNE 


SEC 

LDA 

SBC 

STA 

LDA 

BEQ 
* 


* Y-Startpunkte setzen. 


SUBY2 


GA2Y 
COUNY 
YFLAG 
MOD1 
MOD2 


CA2Y 
CAlY 
COUNY 
YFLAG 
MOD2 
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Für Ihre Unterlagen 
Abonnement bestellt 


aaaamd MAGAZIN FÜR APPLE- „COMPUTER 

Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe ...............- (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,— (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt. , 


zzgl. DM 16,80 Versandspesen. 


am:__ 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 


Ich wünsche jährliche Berechnung durch: 
[|] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 








Poststempels). 
peeker 
Leserservice Bank / PschA 
Postfach 102869 5 | . 
6900 Heidelberg 1 ee Kto.-Nr. 
Datum Unterschrift . 


2 
E 
4 





Für Ihre Unterlagen 
Folgende Bücher bestellt: 





FIIPIAD MAGAZIN FÜR APPLE-COMPUTER 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 





am: 
bei: 





peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Daum Unterschrift 


VIII MAGAZIN FÜR APPLE-COMPUTER 


DD Buch 1: 





Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 





Bitte senden Sie mir 
gegen Rechnung folgende Apple-Programme: 


Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


O 

5 LI Peeker-Sammeldiskette, einzeln DI Apple DOS 3.3, Begleitdiskette, DM 28,— 
Disk# ____, Disk# [] Apple ProDOS, Band 1, Begleitdiskette, 

— Se Disk# ______, Disk# DM 28,— 
U Preis je Disk DM 28,- (einzeln) [| Se Band 2, Begleitdiskette, 

© U] Peeker Sammeldiskette, OD) Apple Assembler, Begleitdiskette, DM 28,- 

oO im Fortsetzungsbezug U] ProDOS-Editor 1.0, Programm, DM 98,- 
ab Disk # _—— ED) MMU 2.0, Programm, DM 98,- 

am: (Mindestbezug 6 Disketten) OD INPUT 2.0, Programm, DM 98,- 

3 Preis je Disk DM 20,- OD Softbreaker 1.0, Programm, DM 48,— 
bei: Slazı LI DB-Meister, Programm, DM 290,— 
peeker OÖ [] Superplot, Programm, DM 48,— 
Softwareabteilung an L[] Superquick, Programm, DM 48,— 








Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 





Datum 


Unterschrill 
Verlagshinweis: ’ 
Das Abonnement verlängsrt sich zu.den jeweils gülligen 
Bedingungen. um ein Jahr, wenn es nicht 2:Monate vor 
‚Jahresende schriftlich gekündigt wird. 









& 





ep te bitte vollständig ausfüllen 





Vorname, Name 


el 
D 





Straße 


Piz/ört 


Telefon mit Vorwahl 





» Software-Karte 





Karte bitte vollständig ausfüllen 





Vorname, Nams 





Firma 














Telefon mit Vorwahl 





POSTKARTE 


peeker 
Leserservice 


Postfach 10 28 69 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 2869 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u. a. definieren: Feldiänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
tung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomtfort (insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ilc; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple lie 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0”- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Äpple lie) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utillity 
für die Apple lie 64K-Karte 


von. Stiehl 


1984, Diskette und Manual, DM 48, — 
ISBN 3-7785-1022-3 


Softbreaker ist ein Ässemblerprogramm, mit: 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für: 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche-: 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. | 
Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi-: 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte Ä 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 


HSCRN-Routine 
Ermitteln, ob ein angesprochener 
Punkt an oder aus ist 


LDX 
LDY 
JMP 


„NH 


LDX XLOW 
LDX s LDY XHIGH 
LDY j LDA Y 
JSR HPOSN 
STX Y s LDA (GBASL),Y 
sTY Y2 : AND HMASK 
INC COUNY AND +#$7F 


Für den X-Zähler testen, was 
wovon subtrahiert werden 
muß! 


. und dann den entsprechenden 
schwarzen oder weißen Punkt auf 
die neue Stelle plotten. 


“„*rkr % 


*%*%* TRICK NR. 1 ##%* : BEQ BLACK 
LDA #$7P ;weiß 
LDA CUIXL 5 BNE POINT 
CMP CU2XL R BLACK LDA #+$9 ‚schwarz 
LDA CUlXH 5 POINT STA HCOLORZ 
SBC CURXH * 
BCS SUBX2 Grafikseite-Flag (PFLAG) testen 
und entsprechende Vorkehrungen 
SEC für die Übertragung treffen. 
LDA CU2XL 
SBC CUlXL i LDA PFLAG 
STA COUNXL : BEQ PAGEIL 
LDA CU2XH : LDA #549 
SBC CUIlXH E STA HPAG 
STA COUNXH A LDX KXLOW2 
LDA XFLAG : LDY KXHIGH2 
BNE MOD3 5 LDA Y2 
BEQ MOD4 : JSR HPLOTO 


zuEkkEm Fr 


SEC X-Zähler bis auf ® dekrementie- 

LDA CUIlXL ren, dann nach DOY ... 

SBC CU2XL | 

STA COUNZL : DEC COUNXL 

LDA CU1XH | BNE DOX 

SEC GU2XH | ! LDA COUNXH 

STA COUNXH | : BEQ DOY 

LDA XFLAG | r DEC COUNXH 

BNE MOD4 | 
* | Je nach XFLAG X-Koordinaten 
* X-Startpunkte setzen. in- oder dekrementieren. 
* 
MODS LDX CA2XL 5 0X LDA XFLAG 

LDY CA2XH & BNE DECRX 

STAÄ AXLOW | E ING XLOW 

STY XHIGH : BNE NEATX 

LDX CGU2XL : ING XHIGH 

LDY CU2XH 5 INC XLOW2 

JMP REST : BNE LOOP 

INC XHIGH2 

LDX CAIXL a BNE LOOP 

LDY CAIXN je 

STX XLOW * »#+* TRICK NR. 2 x#%* 

5TY AHIGH % 

LDX CUIXL 5 DECRX LDA AXLOW 


LDY CUI1XH ; BNE DOL1 

DEC AHIGH 
STX XLON2 Ä DEC XLOW 
STY AXHIGH2 : LDA XLOW2 


INC COUNXL i BNE DOL2 
BNE WEITER i DEC AXHIGH2 


ING COUNXH i DOL2 DEC XLOW2 
* : JMP LOOP 


* X-Koordinaten und X-Zähler 
* in die Ablage bringen. 
# 
WEITER LDX XLOW 
LDY XHICH 
STX TEXL1 OY DEC COUNY 
STY TEXHl z BEQ RET2 


LDX XLOW2 * 
LDY KXHIGH2 * ... je nach YFLAG Y-Koordinaten 


STX TEXL2 * in- oder dekrementieren und . 
STY TEXH2 * 
LDX COUNXL : LDA YPFLAG 
LDY COUNZXH : BEQ INY 
STX COXL : DEC Y 
STY COXH : DEC Y2 
2 E JMP RSTX 


* Jetzt geht's los! : ING Y 
INC Y2 


Y-Zähler dekrementieren. 
Ist er ®, dann erledigt, 
sonst 


Uhr 











* 

LOOP LDA #+$29 * 
STA HPAG * ... die Start—X-Werte und den 

* *» X-Zähler wieder für eine 
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6446: 
6448: 
BAAR: 
GAAC: 
6AAE: 
6458: 
6452: 
6454: 
6456: 
6458: 
645A: 
645C: 
645E: 


6461: 
6463: 
6465: 


a6 F9 
a4 FA 
86 #0 
84 fl 
46 FB 
Aa FC 
86 ®6 
84 07 
A6 FD 
44 FE 
86 1D 
84 1E 
aC D6 


a9 28 
85 E6 
6 


aA05 Bytes 


HSCRN 


Bpßß: 
8802: 
80B4: 
Bde: 
8HB9: 
SühB: 
BAD: 
SÖBF: 
89ll: 


a6 DO 
AA 61 
A5 2 
ad 11 
Bl 26 
25 30 
29 7F 
85 03 
SH 


18 Bytes 


ln 
4 


30 


355 %& neue Runde 
356 * 

357 RSTX LDX 
358 LDY 
359 STa 
3608 STY 
361 LDX 
362 LDY 
363 STX 
564 STY 
365 LDX 
366 LDY 
367 STX 
368 STY 
369 JMP 
370 * 

371 RET2 LDA 
372 STA 
373 RTS 


HSCRN 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
HPOSN EQU 


ı 
2 
3 
4 
5 
6 
7 
8 
9 


a 
Ermittelt, 


Pbrrtesbbtbter 
VO] + =. 


LDX 
LDY 
LDA 
JSR 
LDA 
AND 
AND 
STA 
RTS 


herstellen. 


TEXL1 
TEXHl 
XLORW 
XHIGH 
TEXL2 
TEXHA2 
XLONW2 
XHIGHZ 
COXL 
COXH 
COUNXL 
COUNXH 
LOOP 


+$29 
HPAG 


von N.G. Barbieri/1985 


$0B 
Sol 
$02 
$03 
$26 
$39 
$rall 


ob ein Hires-Punkt 


weiß oder schwarz ist 
Resultat in FLAG: ß = schwarz, 


nicht ® = weiß. 


XLOW 
XHIGH 

Y 

HPOSN 
(GBASL),Y 
HMASK 
#$7F 

FLAG 





Der nächste Peeker 
Heft 9/1985 


erscheint am 
26.8.1985 





Einzelbezug DM 28, — 
Fortsetzungsbezug DM 20,— 

(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 102869 - 6900 Heidelberg 1 


Disk+# 1 
(Heft 1+2, 1984) 


T.DISASSEMBLER.65C02 (1/84, S. 15) 
DISASSEMBLER.65002 


T.ACGEL.WAIT (1/84, 5. 22) 
ACCGEL.WAIT 
T.ACCGEL.BOOT 
ACGCEL.BOOT 
ACCEL.LC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCGEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACGEL.ROM.KOPIE2 


TURTLE.GRAFIK.MIT.REMS (1/84, 5.29) 
TURTLE.GRAFIK.OHNE.REMS * 


DOUBLE,LORES.SOFTSWITCH.DEMO 
(1/84, S. 37) 
DOUBLE.LORES.APPLESOFT.DEMO 
AMPER,DOUBLE.LORES.DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 

DOUBLE.LORES 


HIRES (1/84, S. 41) 
T.PRINTHIRES 
PRINTHIRES 


DHGR.APSOFT.DEMO (2/84, S. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 


INSTRING.TEST (2/84, 5. 43) 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 


LOESCHEN.EINES.ARRAYS 
(2/84, S. 52) 


ULTRATERM.ENGLISCH * (2/84, S. 60) 
ULTRATERM.DEUTSCH * 


PRIMZAHLEN.OVERMEYER * 
(2/84, S. 70) 
PRIM.OBJO * 
PRIM.OBJ1 * 


Peeker 


PRIM.TEST * 
PRIM.TOOLKIT.SOURGCE * 


Disk #2 
(Heft 1-2, 1985, DOS-Format) 


T.RAMDISKLC (1-2/85, S. 14) 
RAMDISKLC 


T.IBS.RAMDISKDRIVER (1-2/85, S. 20) 
IBS.RAMDISKDRIVER 


T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 


T.QUICKCOPY (1-2/85, S. 26) 
QUICKCOPY 
QUICKCOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS.COPYOBJ * 
PRODOS.COPYOBJ 


PRODOS.PATCH (1-2/85, S. 31) 


T.APPLESOFT.FRE (1-2/85, S. 36) 
T.LC.FRE 

LC.FRE 

FRE.TEST 

T.RAM.FRE * 

RAM.FRE 


T.SCHIRMDISK (1-2/85, S. 44) 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA.SOURCE 
VIDEXT 


GETPAS (1-2/85, S. 70) 
T.GETPAS.ASS * 

GETPAS.ASS 
GETDOS.PASCAL.SOURCE 
COPYDUPDIR.PASCAL.SOURCE 


PRODOS,EDITOR.MACROS 
(1-2/85, S. 86) 


Disk #3 
{Heft 1-2, 1985, CP/M-Format) 


STEUER,84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELP.BAS * 
A.BAS 
B.BAS 
C,BAS 
D.BAS 
E.BAS 
F.BAS 
G.BAS 
H.BAS 

I.BAS 
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J.BAS 
K.BAS 
L.BAS 
M.BAS 
N.BAS 


Disk +4 
(Heft 3 + 4, 1985) 


TESTGENERATOR (3/85, 5. 26) 
SAETZE 

BAHNFÄAHRT * 

za 

TUN.UND,SOLLEN * 

IRGEND * 


MULTIPRECISION (3/85, S. 32) 


T.WS.TRANSFER (3/85, S. 36) 
WS.TRANSFER 
T.WS.TRANSFER.2 * 
WS.TRANSFER.2 * 

GETCPM 


PRIM,0.5C.SOURCE (3/85, S. 62) 
PRIM.O.BIN 


PRIM,.1.5C.SOURGE 
PRIM.1.BIN 
PRIM.FP 


ACGELERATOR.ABSTELLEN 
(3/85, S. 66) 


T.WILDCARD.TEST * (3/85, S. 72) 
WILDCGARD.TESTI * 
T.WILDCARD.TEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S. 18) 
XPLOT.ROUTINE 
T.XPLOT.ROUTINE 


MENUE.GENERATOR (4/85, S. 22) 
T.MACROS.65C02 (4/85, S. 31) 


TERMINAL (4/85, 5.36) 
TERMINAL.B 
T.TERMINAL.B 


CAT.ARRAY (4/85, S. 44) 
CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS,READER 
T.PRODOS.REÄADER,.OBJ 
PRODOS.READER.OB)J 


MOUSESTUFF.,PASCAL.SOURCGE 
(4/85, S. 51) 
MOUSE.ASS.PASCAL.SOURCE 
TESTMOUSE,PASCAL,SOURCGE 
DRAWMOUSE.PASCAL.SOURCE 


INALL.DATA (4/85, S. 70) 
SCREEN80,DATA (4/85, S, 33) 
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Sammeldisketten 


SCREEN80.SAVER (4/85, S. 76) 


Disk #5 
(Heft 5, 1985, DOS-Format) 


T.FM.BSP (5/85, S. 9) 
FM.BSP 


T.SLOTRAMDISK (5/85, S. 13) 
SLOTRAMDISK 
SLOTRAMDISK.HELLO 


PLOTZ2.0 (5/85, S; 20) 
12RLOTEB 

PLOTB 
PLOT.PROTECTOR 


T,CONVERT560 (5/85, S. 26) 
CONVERTS60 
CONVERTS60.DEMO 


T,EDA (5/85, S. 33) 
EDA 


TRANSCEND.PASCAL,SOURCE 
(5/85, S. 36) 


T.,BLOCKTRAGER (5/85, S. 51) 
BLOCKTRACGER 
T.BLOCKTRAGERI 
BLOCKTRACER1 


FORMAT.LC (5/85, S. 56) 
FORMAT.LC.START 


T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 


RANDOM.DEMO (5/85, S. 69) 
COLUMN30,DEMO 


SUPERDUMP.EPSON (6/85, S. 221) 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP.BILD 

T,SUPERDUMP & 

SUPERDUMP 

EPSON 

IMAGEWRITER 


Disk #6 


HELLO (6/85, S. 72) x 
ASMDIV & 


CURSORT (6/85, S. 6) 
T.CURSORI1 
CURSOR2 
T.CURSOR2 
LINIE 

T,LINIE 

VIERECK 
T.VIERECK 

BOX 

T.BOX 
HINTERGRUND 
T.HINTERGRUND 


PAGE.SWAP 
T.PAGE.SWAP 


WANDERNDER.STRICH (6/85, S. 16) 
KOMPRESSOR.DEMO 

KREIS.1 

KREIS.2 

KREIS.3 

FLIPPER 

T.ELIRPER 

KOMPRESSOR 

T.KOMPRESSOR 


OLYMPIA (6/85, S. 34) 
T.OLYMPIA 


FOURIER.MAIN (6/85, S. 38) 
FOURIER.SYN 
FOURIER.SPEC 


AS.ERWEITERUNG (6/85, S. 43) 
T.AS.ERWEITERUNG 
AS.ERW.PROSTART 
AS.ERW.PRO x 

T.AS.ERW.PRO x 


INSTALL. PASCAL.SOURCE 
(6/85, S. 48) 

RAMDISK94.PASCAL.,SOURCGE 

INIT.PASCAL.SOURCE 


RAMDISK.INIT.DOS (6/85, S. 55) 
AUXDRIVER 

T.AUXDRIVER 

MOVEDRIVER 

T,MOVEDRIVER 
RAMDISK.FORMATTER 
T,RAMDISK.FORMATTER 


SOLITAIRE.START (6/85, S. 64) 
SOLITAIRE 

SOLITAIRE.B 

T,SOLITAIRE.B 


Disk #7 


PYRAMID.PITTY (7/85, S. 6) x 
T.PYR.PITTY.O * 
T.PYR.PITTY.1 x 

PYR.PITTY.O x 

PYR.PITTY.1 * 
PYR.PITTY.BACK x 
PYR.PITTY.SHAPE x 


T.MEGAWARP.REL (7/85, S. 8) * 
MEGAWARP.REL * 
T.MEGAWARP.9900 
MEGAWARP.9900 
I-SRBEEDTIEST 

SPEEDTEST 


FORMAT (7/85, S. 20) 
T.FORMAT.OBJ 
FORMAT.OBJ 


BITEDITOR (7/85, S. 29) 
NORMAL & 


FETT « 
FETT.INVERSE * 


PASTOPRO.1D (7/85, S. 62) * 
PASTOPRO.2D 
T.PASTOPRO.O 
PASTOPRO.O 


T.CONVERT (7/85, S. 69) 
CONVERT 


T.VORLESER (7/85, S. 71) 
VORLESER 


Disk #8 
(Heft 8, 1985, DOS-Format) 


HELLO «& 
ASMDIV « 


DISKTEST (8/85, S. 14) 
DISKTEST.START 
T.DISKTEST 


KOPY (8/85, 3,72) 
BATCHKOPY 
T.GETSETINFO 
GETSETINFO 
BILDTEST 


T.BOX. COPY (8/85,'3. 26) 
BOX.COPY 

T.HSCRN 

HSCRN 
GRAF,QUATTRO.1 


T.DOUBLE.LORES (8/85, S. 34) 
DOUBLE.LORES 
DOUBLE.LORES.DEMO 


START.CMD « (8/85, S. 40) 
HMENUE.CMD * 
AUFNAHME.CMD + 
AUFMASKE.CMD + 
AUSGABE.CMD x 
SUCH.CMD * 
EDITFNAME.CMD * 
SUCHVNAME.CMD &* 
SUCHBEME.CMD # 
SCHREIBA.CMD * 
SCHREIBL.CMD «+ 
LOESCH.CMD « 


IDSEARCH.PASCAL.SOURCE 
(8/85, S. 49) 


FAKULTAET.DEMO (8/85, S. 57) 
T.FAKULTAET 

FAKULTAET 

GRAFIK.DEMOS (8/85, S. 68) 
ZEICHENJAGD (8/85, S, 70) 


T,RAM.FRE.NEU (8/85, S. 70) * 
RAM.FRE.NEU 
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Wenn Sie einen Apple Ile mit einer erwei- 
terten 80-Zeichenkarte oder einen Apple 
IIc besitzen, dann können Sie mit der hier 
vorgestellten Software den Applesoft-In- 
terpreter um sechs neue Grafik-Befehle 
erweitern. 


Die erweitere 80-Zeichenkarte für den Ap- 
ple !le stellt zu den bereits vorhandenen 
64K RAM auf dem Motherboard weitere 
64K RAM zur Verfügung, die sich auf viel- 
fältige Weise einsetzen lassen. Eine dieser 
Möglichkeiten besteht darin, die Auflösung 
der Lores-Grafik zu verdoppeln, so daß 80 
mal 48 Kästchen darstellbar sind. Über die 
Organisation und die Programmierung der 
Double-Lores-Grafik wurde bereits im 
Peeker 1/84 ausführlich berichtet. 

Die Programmierung von Double-Lores in 
Applesoft-BASIC erweist sich als sehr 
umständlich, da der Interpreter keine Be- 
fehle zur Erstellung von Double-Lores- 
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Grafiken enthält, wie man sie von der nor- 
malen niedrigauflösenden Grafik gewohnt 
ist. 

Das hier vorgestellte Software-Paket im- 
plementiert die fehlenden Befehle, so daß 
Applesoft-Programmierer die Double-Lo- 
res-Grafik nutzen können, ohne detaillier- 
te Kenntnisse über deren rechnerinterne 
Organisation zu besitzen. 


en, 
ee 





Die neuen Befehle 


&GR - Das &GR-Statement veranlaßt den 
Computer, auf doppelt-niedrigauflösende 
Grafik umzuschalten. Dabei wird der Bild- 
schirm gelöscht und vier Textzeilen am 
unteren Bildschirmrand bereitgestellt. Die 
Darstellung auf dem Bildschirm erfolgt 
jetzt in einem 80-mal-40-Raster. 

Will man die ganze Seite mit Grafik ausfül- 
len (80 mal 48 Punkte), so muß zunächst 
durch 

POKE 49234,0 

auf Full-Screen-Ausgabe umgeschaltet 
werden. Um die acht Grafikzeilen am unte- 
ren Bildschirmrand zu löschen, verwende 
man dann folgende Befehle: 

POKE 49236,0: CALL 63538 

POKE 49237,0: CALL 63538. 

Hierdurch wird der ganze Bildschirm ge- 
löscht und wie oben die Farbe schwarz 
eingestellt (COLOR = 0). 


&TEXT - Dieser Befehl schaltet von Dou- 


ble-Lores-Grafik auf Textdarstellung um. 
Es wird der 40-Zeichen-Textmodus einge- 
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schaltet und die erweiterte 80-Zeichenkar- 
te desaktiviert. 

Dieser Befehl sollte nur dann benutzt wer- 
den, wenn die 80-Zeichenkarte vor Aufruf 
von &GR nicht aktiv war, da ansonsten 
Softswitch-Probleme auftreten. Wurde die 
Double-Lores vom 80-Zeichenmodus aus 
aktiviert, genügt ein TEXT-Befehl zum Zu- 
rückschalten. 
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&PLOT - Der &PLOT-Befehl zeichnet ein 
Kästchen in der aktuellen Farbe auf dem 
Double-Lores-Bildschirm. Der erste Aus- 
druck, der dem Schlüsselwort „&PLOT“ 
folgt, gibt die Spalte an, in der das Käst- 
chen gezeichnet werden soll (zwischen 
D...79, von links nach rechts); der zweite 
Ausdruck, durch ein Komma vom ersten 
getrennt, bestimmt die Zeile (0...47, von 
oben nach unten). 


Beispiel: „&PLOT 10, 15“ plottet einen 
Block in Spalte 10, Zeile 15. 

Der normale PLOT-Befehl wurde dahinge- 
hend erweitert, daß jetzt — wie unter HGR 
— auch Linien zwischen zwei oder mehre- 
ren beliebigen Punkten gezeichnet wer- 
den können. 

Beispiel: „&PLOT 0, 0 TO 79, 47“ zeich- 
net eine diagonale Linie von links oben 
nach rechts unten in der aktuellen Farbe. 
Liegen die angegebenen Koordinaten au- 
Berhalb des zulässigen Bereichs, wird das 
Programm unterbrochen und die Meldung 
„ILLEGAL QUANTITY ERROR“ ausge- 
geben. 


aralik 4 





&HLIN -— Das &HLIN-Statement zeichnet 
eine horizontale Linie in der aktuellen Far- 
be. Die beiden Ausdrücke, die dem Befehl 
„&HLIN“ folgen, bestimmen die Spalten- 
nummern, in denen der Anfang und das 
Ende der Linie liegen. Der Ausdruck, der 
dem Schlüsselwort „AT“ folgt, bestimmt 
die Zeile, in welcher die horizontale Linie 
gezeichnet werden soll. 

Beispiel: „&HLIN 20, 60 AT 10“ zeichnet 
eine horizontale Linie in Zeile 10 von Spal- 
te 20 bis Spalte 60. 

Wird die zulässige Spalten- oder Zeilen- 
zahl überschritten, wird eine Fehlermel- 
dung ausgegeben und das Programm un- 
terbrochen. 


&VLIN — Das &VLIN-Statement zeichnet 
eine vertikale Linie. Die beiden folgenden 
Ausdrücke bestimmen Anfangs- und End- 
zeile der Linie, während der Ausdruck 
nach „AT“ die Spalte bestimmt, in der die 
Linie gezeichnet wird. 

Beispiel: „&VLIN 10, 30 AT 20" zeichnet 
eine vertikale Linie in Spalte 20 von Zeile 
10 bis Zeile 30. 

Bei Überschreiten der zulässigen Spalten- 
oder Zeilenzahl wird eine Fehlermeldung 
ausgegeben und der Programmablauf un- 
terbrochen. 


&SCRN - Der &SCRN-Befehl ermittelt die 
Farbe eines angegebenen Blocks auf dem 
Double-Lores-Bildschirm. Der Wert, den 
die Funktion zurückgibt, liegt zwischen O 
und 15, und wird der angegebenen Varia- 
blen zugewiesen, die wahlweise vom Typ 
Integer oder Real sein kann. 

Beispiel: „&SCRN(A, 50, 10)“ ermittelt 
die Farbe des Blocks in Spalte 50, Zeile 
10. Die Variable A hat dann einen Wert 
zwischen O und 15. 

Wenn die Variable nicht dem zulässigen 
Typ entspricht (z.B. A$) oder die zulässi- 
gen Grenzen für die Koordinatenangaben 
überschritten werden, erfolgt eine Fehler- 
meldung. 


Der normale COLOR-Befehl kann weiter- 
hin verwendet werden, um die gewünsch- 
te Farbe eines Blockes zu definieren, wo- 
bei der Ausdruck rechts vom Gleichheits- 
zeichen zwischen O und 15 liegen muß. 
Beispiel: „COLOR = 15“ wählt die Farbe 
weiß aus. 


Technische Anmerkungen 


Das Programm residiert ab Adresse 
$931A im Hauptspeicher und ist 742 Bytes 
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lang, kann aber durchaus auch mit einer 
anderen Startadresse assembliert werden. 
(Anm.: Dies ist insbesondere für ProDOS 
erforderlich. Unter DOS 3.3 liegt das Pro- 
gramm unterhalb von $9600, d.h. im Be- 
reich $931A-$95FF unterhalb vom dritten 
DOS-Puffer bei Maxfiles 3. Man könnte es 
auch unterhalb von $9A00 legen und die 
DOS-Puffer entsprechend nach unten ver- 
schieben. Unter ProDOS muß es unter- 
halb von $9A00 liegen, d.h. im Bereich 
$971A-$99FF, weil es sonst durch einen 
Textfile-Zugriff zerstört würde. Zu diesem 
Zweck muß man über die GETBUFR-Rou- 
tine 3 Pages anfordern und dann das Pro- 
gramm mit BRUN DOUBLE.LORES star- 
ten. Aus all diesen Gründen wird HIMEM 
durch DOUBLE.LORES nicht geändert. 
us) 

Um die neuen Applesoft-Befehle in den 
Interpreter einzubinden, wurde der Am- 
persand-Vektor verwendet. Er bietet eine 
bequeme Möglichkeit, eigene Routinen 
ohne Geschwindigkeitsverlust an den In- 
terpreter anzuhängen. 

Jedesmal, wenn der Interpreter auf das &- 
Zeichen trifft, verzweigt er zur Adresse 
$03F5, in der normalerweise ein Sprung 
zu einem RTS-Befehl steht. An dieser 
Stelle wird nun ein Sprung zum eigenen 
Programm eingetragen. 

Stößt der Interpreter auf das &-Zeichen, 
so verzweigt er zum Anwenderprogramm, 
das zunächst überprüft, welcher Token 
vorliegt, um zu dem entsprechenden Pro- 
grammsegment zu springen. Nach Aus- 
führung des jeweiligen Befehls wird der 
Textpointer bis zum nächsten Applesoft- 
Befehl vorgerückt und DOUBLE.LORES 
über einen RTS-Befehl verlassen. 


Konflikte mit 40/80-2/2 


Es empfiehlt sich, vor Aktivierung der 
Double-Lores die 80-Zeichenkarte mit 
„PRINT CHR$(21)“ oder „ESC Ctri-Q 
abzustellen, um Speicherkonflikte zu ver- 
meiden und das korrekte Arbeiten des 
&TEXT-Befehls zu gewährleisten. 

Sollten Sie keine Double-Lores-Grafik auf 
dem Bildschirm sehen, kann das an Ihrer 
erweiterten 80-Zeichenkarte liegen. Ent- 
weder Sie besitzen eine Nachbau-80-Zei- 
chenkarte, die nicht über die entsprechen- 
den technischen Möglichkeiten verfügt, 
oder die Karte ist nicht korrekt installiert. 
Lesen Sie dazu das entsprechende Kapi- 
tel im Handbuch zur 80-Zeichenkarte. 


Bei gemischter Darstellung (Text und Gra- 
fik) beachten Sie bitte folgendes: 
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DOUBLE.LORES 


931A: 
93160: 
goal. 
9321: 
9324: 
9526: 
9329: 


gZRR: 
932C: 
S32E: 
9339: 
9352: 
9334: 
9336: 
9338: 
933A: 
933C: 
933E: 
9349: 


c9 
Fö 
c9 
Fo 
c9 
FO 
c9 
FÖ 
c9 
Fö 
c9 
F$ 


ac 
F5 


F6 
95 
F7 


d3 
63 
#3 


oo-Jouüuülhuınre 


x a 5: aaa 


ORG 


Tokens 

* 

TRLOT EQU 
TGR EQU 
THLIN EQU 
TWLIN EQU 
TSCRN EQU 
TTEXT EQU 
TO EQU 
AT EQU 


* 


* Applesoft-Routinen 


x 

AMPER EQU $P3F5 ;Ampersand-Vektor 

TABV EQU $FB5B :Cursor vertikal tabulieren 
CLRTOP  EQU $F836 :Lores-Schirm löschen 
PLOF EQU $F8dd ;Block plotten 

SCRN EQuU $rF87l ‚Lores-Screen-Befehl 
CHRGET EQU $#BB1l :Zeichen aus BASIC 
GETBYT EQU $ES6F8 ;Byte aus BASIC 

SYNCHR EQU $DECH ‘Zeichen im AREG 

“ :mit BASIC vergleichen 
SNERR EQU $DEC9 "SYNTAX ERROR" 

ILQUAN EQuU $E199 "ILLEGAL QUANTITY" 
PTRGET EQU $DFE3 ;Pointer auf Variable 
= ‚aus BASIC-Text 
SNGFLT EQU $ESPl ‚YREG -> FAC 

= 

= Konstanten 

* 

PAGEL EQU 0954 ;Hauptspeicher 

PAGE2 EQuU $C955 ;Zusatzspeicher 

CHAR EQU $B8 ‘aktuelles Zeichen im 
* ‚BASIC-Text 

POINTER EQU $CE ;Zeiger für Puffer 
VARNAM EQU $81 ;letzte BASIC-Variable 
SUBFLG EQU %$14 :;Flag für Var.-behandlung 
FAC EQU $9D ;Float.-Akkumulator 
WNDTOP EQU $22 ‘obere Begrenzung des 
2 :Scroll-Windows 

* 

* Speicherplatz für Koordinaten 

* 

xl EQU $B6 

xX2 EQU 997 

Yıi EQuU $89 

Y2 EQU $E3 

XS EQU $D7 ‚Schrittweite X 

YS EQU $EB :Schrittweite Y 

XD EQU $CF :Differenz Xl - X2 

YD EQU $EF :Differenz Yl - Y2 


* 
* 


* Ampersand-Vektor linken 


* 
START 


* 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


S931A 


Double-Lores 1.9 


m gg 
ZZ Ze 
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$8D 
688 
$8E 
$8F 
$D7 
689 
$c1 
$C5 


+$4C 
AMPER 
#<LINK 
AMPER+1 
#>LINK 
AMPER+Z 


;JMP 


* Einsprung für jeden Ampersand- 
* Befehl; Token im A-Register 


* 
LINK 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


#TGR 
GR 
#TTEXT 
TEXT 
+TPLOT 
JPLOT 
#THLIN 
HLIN 
#TVLIN 
JVLIN 
#TSCRN 
JSCRN 
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1. Ein &PLOT-Befehl über die 39. Grafik- 


zeile hinaus druckt ein Zeichen in die un- zus 
teren vier Textzeilen, SPLOT 
2. Die erweiterte 80-Zeichenkarte sollte N: 
vor Aktivierung der Double-Lores-Grafik 
eingeschaltet sein und eingeschaltet * 
bleiben. R 
3. War die 80-Zeichenkarte aktiviert, so ist * Double-Lores initialisieren 
der TEXT-Befehl zum Zurückschalten zu A) 
verwenden, ansonsten & TEXT. G LDA $co5 ;GRAFIK 
LDA $cB56 ; LORES 
re LDA $c853 ;MIXSET 
Bei reiner Grafikdarstellung ist folgendes STA $CPPl ;SßSTORE 
zu berücksichtigen: San a 
. . 1 LDA $Cß5E ;‚ANS3 
1. Benutzen Sie die oben erwähnten Ä LDA +28 
POKE- und CALL-Befehle, um die unteren | 3 De un 
vier Zeilen für Grafik freizuhalten. | | a a 
2. Jeder PRINT-Befehl druckt Zeichen in LDA PAGE2 | \ 
den Bildschirmspeicher, die als Farbblök- / en 
ke auftreten. JSR CLRTOP ;Hauptspeicher löschen 
3. Selbst ein GET-Befehl erzeugt einen . a 
farbigen Block, da der Cursor sichtbar * 
wird. Um dies zu vermeiden, kann die 2 
Eingabe eines Zeichens von der Tastatur * 
z.B. wie folgt vorgenommen werden: s in den Textmodus 
10 ON PEEK (49152) < 128 GOTO 10:A$ Ä T STA $capp ;48STORE 
= CHR$ (PEEK (49152) - 128): STA $CDBC ;ABCOL 
: LDA $C05F ;ANS OFF 
POKE 49168,0 LDA $cQ5l ;TEXT 
4. Für das Zurückschalten gilt das gleiche | LDA PAGEI 
ie oben | LDA #9 
wie o ö ; STA WNDTOP ‚volles Scroll-Window 


JMP  CHRGET ‚Ixtptr. ink. -> BASIC 
* 
* &HLIN X1, X2 ATY 


Das Programm DOUBLE.LORES.DEMO En 


zeigt eine Anwendung der neuen Befehle | ee kenne -TXTPTR vorrücken 
und die Umschaltung auf reine Grafik- JSR GETBYT ;‚Param, X1 aus BASIC-Text 
2 CPX #89 ‚Xl > 79? 
# 
Ausgabe. = BCS ERROR 





Apple und EM 4 g 3 APPLE //e 


kompatible Computer 


16K, Z80, Diskceontroler je y“ 7- APPLE IL 


80 Zeichenkarte mit Softswitch 


2 Zeichensätze Ä uk 
a sndare Aei one und kompatible Computer 


Firmware Ä 

Erphi-controler mit Autopaich .. Eee: Universeller EPROM-Programmer 4003 
Siemenslaufwerk F 122 u Programmiert alle gängigen EPROM-Typen (z.B.: 2716, 
Philips X3134 2x80 Track 2732,-64 ,-128,2508,-16,-32,-64.,,) ® Voll menügesteu- 
TEAC FD-55B 2x40 Track erte Software auf Diskette Kein Schalten, Löten oder 
TEAC FD-55F 2x80 Track Stecken nötig EB Programmierspannung wird ım Gerät er- 


2 zeugt M Verbindung zum Rechner über Flachbandkabel B 
Neu: Stardrucker SG 10 Rote und grüne Leuchtdiode zur Betriebsart-Änzeige U 
Monochrome Monitore ; Komplett mit 28 poligem Textool-Sockel M 


Farbmonitore Fertiggerät DM 269,50 w Bausatz + Anleitung DM 219.- 
80 Zeichen Karte 

Vork 
Versand nur per Nachnahme oder Vorkasse APPLE //e +64 KByte RAM 


i ör fü IB n 
MUIEIE 2 ZUR NEL UN HRS ZUnEBISIEgEgE ® 80 gestochen scharfe und flımmerfreie Zeichen / Zeile 


Lausieren Rückumschlag. W plus zusätzliche 64 KByte schnelle dynamische RAM's 
Preissenkung: u ermöglicht Double Hires Graphik ( 560 * 192 Punkte ) 
128K Karte (Saturn kompatibel) .... 395,— u vergoldete Steckerleisbe und Qualitätsbauteile 
Zusatzkarten und Motherboard ausnahmslos Geprüfte Platine + Demo Disk + Beschreibung DM 174 50 
deutsche Fertigung mitausgesuchten Bauteilen. Bausatz DM 145 -M Leerplatine + Bauanleitung DM 59 - 
Ab Lager lieferbar. Alle Preise inklusıve Mehrwertsteuer 


Ulf Mohwinkel Electronic | DOBBERTIN 


Berliner Straße 73 
5090 Leverkusen Fettehenne INDUSTRIE-ELEKTRONIK 


Telefon 02 14/9 37 81 Brahmsstraße 9, 6835 Brühl, Tel. (06202) 71417 


"yorsAor- 


-UEIY ISMZ UOA EInIyISUy LINZ LHOdAOF 
* dpppeg 'n INVY Hu (1289) PaeQ-vid Or aaV 


"drppeg 'n WyvH u (2299) PEO-VIA ge daY 
” 491 ‘08Z 


ayn EI-0L "es 
* eayedwoy-eiddy '4Sr ‘Dd-Il NOSIWN 


a “un 81-21 "oyı neyulaRAuspe] 


355 O4 Val 


YONMSYOS Uey2ISZ 08 


ISMAN Mu "305 oud Hsıald 
" ZEZ SH 'SYINOHLN3O ‘NOHd3 "TYd 


“uns salyedwoy-eiddy y9e1L OF 'E0L aa1 
yoyedoyny FOg1Y 18lo4u0J-1yd-ı 


“ SsIa| JUSS SA MOBIL 08 GYp YS Mebnus 
LOIPIAPOII SydsNap Puayabypazı 


JOVJYU3SLNIIIAAV 


(Ineyusauspe7 am) EOELEES-OEO uojai@L 


“un 81-5. '0q - 


SU0GZ-9G2I2 
SU0S2-9ELIZ 
SU0GZ-PYL2 
SUOGF-ZEIZ 
SUOGF-ILZZ 
SUOGF-BOZZ 

(9.02 NUS) E4T9,L9 
SBEL S 65 Pueis 


J1I3LNI3T1M 


yuıg 704 Wu 9 431 

104 wu 8137 

NS OL IIeysedns Joy mug 1371 
SLISSELr NAL 

1310107 FOLP MS 

SU0OGL-F9LF AdN 

SU00Z-9LLF IdN 


gr ua 0001 - 22 Bemuszinyosopsen) - 1eqoy 9 9 YUBL 'L 
yuıg GIS} 0 UNI} WU G 037 


J) OUHIIW-INOLSANA 3 


wa —'s B 05Z sıq :Bursisedisa, pun opog AA —'OL-+ Isuos "IC 
— 95 HOMNELSSASEPUNy 'y E urayelsunfuspy Pun ejleıneg auananı 
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usp Jne TA 'IX USFEUTPIOOY UsSp * 
yru Iyung usuTe 7247074 LOTIIXZ * 
% 
NYNdDTI NP MATHA 
% 
514 
1A XlS 
MaIHyg 598 
Pr <KH 87+ Xdd 
usIoy eyÄg: JAILEaD USt 
8'970 xeyrufs: MHONAS USt 
ıs# VQ7 
IX XiIs 
SYTHa4 SOg 
26, <X 03+ Xdd 


ustoy s4Äg! LASL3Dd St TVALIO 
* 


+%01-DIsvä uUSPp STE * 


JIlsva <-: SLd 

139Vd va7 LIX4 

* 
Sueguy ınz OLLOId IAT 
1874074 STUTT: LOTIdNIT St 


IX VLS 
YId 
IA WIS 
vd 
Sk VLS 
TA vq7T 
ex ViS 
IX 701 
VALID St 
VHd 
Tk 7907 
VHd 
x vo] 
* 
T+uA 'T+UX <-> ug ‘uy pun USTOy "uBIBg SnSN * 
* 
UayonıJloa '1Yd4XL! LHOYNH) UST 
* 
spuy <- ‚OL, uref: LIX4 ANgG 
OL# dA 
(x'svm) vqa1 
d# XQT OLLOId 
%* 
ue4407d und: LOIIXI AST 
VALID 
usToy 'weieg euTsy! 019 
OL# dWD 
(X'yvH9) vaT 
Ö+ xXqa7 
usyonıIloA "1Yd4XL! IS9SH) SL 


et BA 8X OL TA IX 10748 


gIsyg yoeu uınyoy: 
ueyon1l0A '14d4XL! LSF9SHd dNL 
T39Vad val 

usup.ıonz! 


usTgerleäA Iep sposqle4! 
Hayy ur oquleg! 

Hay <- 1: 

SaSA <- X: 


I9d <- epelsZun! 


Z94 <= 3.lo4 Ispeı1s2! 
ee: 


yIsyg sne 2 ‘X er10N: 


SEWUoyY: 

USTI[2I5459J USTIgETIER! 
sp d£ı pun '.Ipy! 
USMOnIIoA 'IYÄIXL: 


us3e1rlsqn STgqerlea-JIsyg ur pun 
usuwurIseq A 'X SSEY20II SOP leagqlIe4l 


YTsyg nz Yonıanz: 


usuyorTez 9TuT7! 


EL<K: 
9Isyg sne x 'weieg! 


u lVı? 


LP < SG: 
JISyg sne Zi 'weleg! 


;ewuoy: 


s4r < IA: 
gIsvg sue Ik WeIeg: 
usyonl1IoA "I4dIXL! 


JIsyg nz yonınz! 
JaUOTS IST JSUITS! 
us47301d 9Tur7: 


LP <A: 
AXSL-JISVI sme 1 'weleg! 
&ı1Vı: 


Ole &X: 
1x9]-DIsvg sne zy 'ueleg' 
;euuoy! 


MDVaald 
NUIS 
TA 


SÄAnVd 
AVAO 
T4OVd 
85 


IX 
"VALID 
SHONAS 

0 * 


SaVv.Lad 
LIJAH) 


(K'X 


139Yd 
LONIINIT 
2X 

IX 
SONS3 
ö8+ 
LA9139 
YHONAS 
Ly# 

Sk 
yOuNa 
Br+ 
LAgLEH 
SHONAS 
we 

TA 
SOUN3 
gp+ 
JASL39 
LAJAUHO 


X LV ZA "TA NIIAF * 


NYNdTIT 


Ta9Vd 
LO’IdNTT 
SA 

TA 
0493 
12; 
LAGLED 
UHINAS 
LV# 

x 

ös+ 
LAIL4ID 
SHONAS 
# 
IX 


ust 
Ust 
va 
AVL 
xl 
Sag 
x] 
908 
ası 
ya’ 
us 
ast 
vo? 


ast 
ast 


“avA) NUI5% 


SL 
va 
usr 
XLS 
XLS 
S2I 
Xd) 
ssr 
sr 
va7T 
XLS 
sog 
Xdd 
dsl 
ust 
va7 
XLS 
Sg 
Xdd 
ust 
sst 


INF 
SL 
vo7 
usr 
XLS 
XLS 
Ss2a 
Xd) 
as? 
ust 
ya] 
XLS 
Xd) 
use 
use 
var 
XLS 


* 


NYJAUDS 


„rt + 


NITIA 
* 


% 


* 
40uyH 


182 
03 
661 
861 
46T 
961 
SET 
vet 
26T 
261 
IST 
B6T 
681 
881 
481 
981 
SgI 
vSl 
28T 
28T 
18T 
dest 
6LT 
SL1 
21 
9,1 
SıI 
Fi 
SAT 
Zar 
IT 
ÖLT 
69T 
89T 
IST 
991 
SgT 
v9 
SO 
91 
91 
d91 
691 
sgı 
LS 
99T 
Sssı 
rcı 
EGT 
zS1 
IST 
de1 
EHI 
SP1 
IPI 
9pT 
SpI 
vrT 
SPT 
PL 
IPT 
v1 
SEI 
ser 
LET 
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39 
703 
ISY 
VLS 
d#+ Das 
d#+ var 
VLS 
ax 988 
GA vaı 
Is 
1 15 
Sk 9qY 
TA var 
ne 
30090N dad 
WMaLA Val 
MMYVN Ang 
NODON Ing 
I+HNS3L13 Val 
(A 'X) 10%: LO1IIXI9 NSr 
2:118] sTur7. TAavaym dag 
xag 
XNI 
ISTURBzZ = HI! ax xaı 
XACA* zZ = WyalE IHNNALI VIS 
d+ 098 
d#+ var 
NMSLF ViIS 
ax das 
dNL var 
Jas 
ItdNL 703 
dNL SY 
T+dNL VIS 
d+ var 
ANL YVIS 
aA ven vag 
Be 
JSqunn-pSUZTS-ITg-9T SUTS WMALY IOTU * 
GA =< AX Stuy4rIodTy-NVHNISNIYI * 
% 
LOlIdX3 dit zZAavay 
Zd00T dur 
1A Vvıs 
TA 90% 
SA vaT 
979 
OX * Z + MNGLE VIS 
day 
Ds 
ISY 
vaT  ZMODON 
dnr 
(aa - ax) * 2 + Mala VLS 
Jay 
979 
ISY 
das 
var 
938 
VIS 
SX + IX = IX: av 
IX va 
)=19 
d = NIE: Z3000N da 


B = mais: Z3000N Ing 
NIALS Var 

LOIIXE AST 

z3T2187 arurz! zAavası dag 
xaq 


USIETSTTeTFTUT JerTygzuszjratyag! XNI 


x 
X - QqA* 23 = MMdlE: VIS 
DIS 
JaSs 
ISY 


x Sc 
* 


(vaa 1ezfTeuy-TerjusisjsFTg-Te4TdTtg ISFISTZTFTPON) * 


AX < AA NZ SnuyF}TIloSTy-WVHNAISNING * 
* 
AA =< X: vaa Ida 
AA did 
QX vaI BLLNGI 
% 
SAIN AST SHSYVd 
SLLNAI ANT 
SXIN AST z3sVv) 
SAIN Sf TASV) 
SILNYUH dd 
SasvD Iwa 
aA LIE 
ZEsY) dd 
Iasv9 INg 
aA Lg 
IavVı dd 
0X ‚LI 


J0Ye19USZUSTUT] INF 9YTOAM4ITIYOS Jep uszIag 


Ta 83 aA: OA VLS 
TA 085 

&ı Sal 

OHS 


VLS 
Das 
van 
VHS 


SA VIS 

SX VLS 

T# VaQTI LOTINIT 
* 


USINUNd TeMZ USUISTAZ * 


SLM 
var 
us}7074 y9oTg! usr 
DYUUV <- x: var 
DUMA << X: AYL 
ACT 
Sog 
407 
dssjesnz <- spele2! Ya 
BR N 357 
DHUV <- X! ER LO1dX4 
* 
WITUIS-595107-9TqNOI * 
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NSNLHY 

gege3 TIVD :NB'LEZEH Mod 

SEgE9 TIVD :B'IEZEH HMOd 

dreZCH Mod : WI 2% 

USSIIS-TINYJ June ZunytTeyasun WIN 

aNA : INCH : IXAL 3 

$X 139 

9 IXHN 

X LXHN 

ZAX JO 3 NIHHLFTA => AAN GO <A UI 

TAX LO 3 NIHL AA => TACONFO<TA GI 

II + (H) MdS - I = Ta - (HH WS+AI= TA 
06 01.8 8 => HA !(Y- X) + (V- N) - SAH 
069 0.09 x <XUO OO > XAI '’N+VOLY- VY=X U 
2 +9 = MN: =40100 'SIT 01T =D Od 
ZZ = 21, = WE /M- II / KM- VS RES N 
G8 aNSOH : IXAL 
Teäny sure JeuyoTseZ ONWHA'SHNOT'FTAN0A Na 

„SINOT'TIanca Nnadulr) $SHO LNIMd :(T3) $SHO LNINd PI 


ONSA’SIUOTI1IAN00 


se1Äg UL 


00 XIH DIdAl 867 dd :Ads6 
* J6r 
SIM 967 :31496 
A'(MELNIOI) VS ser 16 :9496 
+ 3ne NSIS! TIIIITIG%+ ANY rer B2 :VII6 
I# ı07 Ser dV :81S96 
IHYa vaI er GY :9HS6 
ZIvay A089 I6r da :vuIS6 
CH Ad) dsr d0 :21S6 
ANI 687 89 !1496 
A'(NALNIOd) YIS 87 IS :44S6 
'ıea <- DV! A'öva VaT 187 sa :04396 
+ Aq07 987 dv :viS6 
SV <- 18014 <- DIR! LTJONS NS Ss8F dz :2466 
AV ver 87V !94G6 
VId cgr 89 :gAG6 
sr 
SIN 187 d9 :!PAS6 
syäg-MOT: A (SEINIOA) YVIS der 16 :2496 
a4 617 88 :T3S6 
d# va7 sır 6Y :dage 
s4Äg-U3TH: A’(SILNIOd) VIS LUF 16 :adas6 
T# A 9lr dv :gass 
Vld Gır 89 :vass 
rır 
'IeA-TEeSY! mau dag Sır da :8096 
I# dJW z.r 69 :9I86 
Yddkl Ve IP av !cas6 
YHa MovaAlD dir 87 :2as6 
* 699 
le4sT3ey-y UT * 897 
BPOSAIEN TU STIeTJeA-DISVZ IsD ZUunSsTSAanZzI.19M %* 297 
* 997 
SSENS dHL 97 
IdyVa vaI WyudAl F97 
* 297 
SIE 297 


181191 719AqI8g! 


STYeETIEA-IO3S4UT: 


SsTgqerleAä-Teey! 


ut 14S utTS lem se! 


dAjusTgerierA 4q4T3ıs! 


USTTSIS4S9J! 
usergerle‘ Iop 'IpY: 
d ne ydrıssans:! 


DlddAL 
+ 


IddALl 
I# 
AaddAl 
T+NYNAYVA 
TYıLNI 
NVYNSVA 


Tr&aLNIOd 
SHLNIOI 


JLA9NLd 
Hquans 
O+ 


VLS 
var 


SLd 
VYLS 
va 
INd 
var 
Ina 
vaı 


ALS 
VLS 


35t 
VYLS 
vaI 


* 


MUVL3D 
* 


usmutYssq (1833JuI ‘Tesy) dÄYJuUSTgeTIer * 
pun usST[94S1S9J 'PITA US]TEeyUIS * 
IN] 9SS31py * 


spoogqleJ uUsp STp 


"YTan-+Tg-9T INF J9UYDTSdssIITH: 


yaaq ınJ wieL-lolig! 


(ax) SW = &: 


(aA) say 


Ad * 3 + NNALI = Wadld: 


(dX - Qi) * 2 + WNZLI = MNELE! 


‘orgerıer 


Bd 
BR 
Bo 
DI 


uX 
T# 


TELLELIZE 


ax 
SX 
Ja$* 


CA 
I# 


ELITE 


aa 
SA 
dais+ 


LOIIXH 
dO0oYT 
IX 

IX 

SX 


I+NSHLA 
Ö+ 
T+NYAL4 
NYHLH 
NSHLH 


JA 

gay 
THNYALH 
IWM3L3 
I+dNL 
NUALH 
NS4.L4 
NL 


X4H 
X4H 
X4A 
xX4H 
SLd 
YLS 
IaYV 
070 
4304 
val 
VLS 
var 


SıLH 
VLS 
JaV 
970 
304 
va 
VLS 
vaml 


dNf 
dNr 
VLS 
JaY 
var 
319 
YLS 
av 
vaoI 
YLS 
JaY 
970 
ISY 
vaT 
dNL 
VLS 
vaV 
vol 
VLS 
Jar 
vol 


* 


dA 


197 S6 Ju 


B9P 
Cr 
sch 
‚SP 
gcH 
sr 
rar 
ScH 
sr 
197 
der 
SFr 
Br 
vv 
9yr 
gpF 
por 
Eur 
er 


20 


Ei 
18 
90 
28 
vo 
18 


3) 
Ad 


zd 
FI 
80 
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Betriebssystem CP/M 


Vom Monitorprogramm zum 
Mehrbenutzersystem. 

Von Jürgen Plate. 

1984, 351 Seiten, 30 Abb,, 





Das Buch beschreibt ausführ- 
lich die Kommandos, ihre 
genaue Syntax und die einzel- 
nen Teilprogramme von GP/M 
wie BIOS (systemspezifischer 
Teil), ED (Editor), ASM (Asem- 
bler, inklusive einer Beschrei- 
bung des 8080-Befehlssat- 
zes), SYSGEN und STAT. 

Der Beschreibung von CP/M 
ist das Listing eines komfor- 
tablen Monitorprogramms für 
Z-80-Computer vorangestellt, 
das eine elementare Program- 
mierung auf Maschinenebene 
erlaubt, solange man CP/M 
noch nicht geladen hat. Das 
kann z. B. zur Fehlersuche 
sehr nützlich sein. Am Schluß 
des Buches findet sich auch 
eine Kurzbeschreibung der 
Multitasking-/Multiuser- 
Betriebssysteme. 


Das Buch zum Apple Ill 
von Erich Esders 

1985, 210 S., 119 Abb., geb, 
DM 54,— 





Wenn hier vom Apple Il 
gesprochen wird, so gilt das 
auch für den IIplus, den lleuro- 
plus und die lle-Versionen 
sowie für den ganzen „Apple- 
Nachbau". Das Buch ist ein 
Wegweiser durch diesen 
Rechner, um mit ihm schneller 
und effektiver zu arbeiten. Es 
geht hier weniger um das ele- 
mentare Programmieren des 
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Rechners, sondern um 
Assemblerprogramme, die 
extensiv Monitor-ROM- 
Subroutinen benutzen. Diese 
hat der Autor nach Sach- 
gebieten geordnet, z. B. 
Mathematik, Graphik, String- 
Bearbeitung + Disassembler- 
Listings und diese wiederum 
mit Erklärungen und Applika- 
tionen komplettiert. Eine aus- 
reichende Dokumentation ist 
dabei immer gewährleistet. Sie 
geht schrittweise vor, von der 
Aufgabenstellung über die 
Programmentwicklung bis zum 
lauffähigen Maschinenpro- 
gramm. Die angebotenen Bei- 
spiele sind ausbaufähig und 
lassen der eigenen Kreativität 
reichlichen Spielraum. Viele 
neuartige Tips und Tricks wird 
auch der beschlagene Apple- 
Benutzer begrüßen. 

Aus dem Inhalt: 

Der Mikroprozessor des 
APPLE Il. Der APPLE II und 
seine Speicheraufteilung. 
APPLESOFT und seine 
Arbeitsspeicher-Bereiche. Der 
MICROSOFT-Basic-Inter- 
preter: Die Zeichen-Lese- 
Routine. Interpretierer und 
Lokalisierer. Handler-Routi- 
nen. BASIC/Maschinen- 
sprache-Interfaces. 
DISAS-Generator. Unterpro- 
gramme im APPLESOFT- 
Basic-Interpreter: Softschalter 
und -Flags. Ausdrucks-Inter- 
pretierer. Low-Resolution- 
Graphik. Fehler-Behandlung. 
Applikationen: Arithnmetik- 
Demonstration „FP-CALC*. 
Hex-Dumps der Applikationen. 
BASIC-Monitor BASMON/D: 
Vorstellung der neuen Kom- 
mandos. Das Programm 
„BASMON/D". Implementie- 
rung und Laufbeispiele. 
BASIC-Interpreter-Vergleich 
APPLE II - Commodore 64: 
Arithmetik-Demonstration 
„FP-CALC/64". Listen: Die 
Token des APPLESOFT-Basic. 


Apple ll ROM Listing 
von Matthias Buck 
1984, 116 S., Kart., DM 59,- 


_ darple I 
Bea ak lee 


R M 
L isting 
für Applerolt-BAlIc- 





MIKROCOMPUTER 


Das deutsche Apple-lIl-ROM- 
Listing ist dal 

Einleitung zum prinzipiellen 
Ablauf des Applesoftinter- 
preters: 

® Aufbau und Verarbeitung 


der/des Programmtextes - 
Variablentabelle - String- 
space - Fließkommaformate 
- Basicstacks (GDSUB, 
FOR-NEXT, ...) 

® Beschreibung der wichtig- 
sten Unterprogramme, z.B. 
Variablensuche, Garbage 
collection, Ausdrucksaus- 
wertung, CHRGET, ... 

® Vollständig disassemblierte 
und sehr ausführlich 
deutsch kommentierte Auf- 
listung des Applesoft- 
BASIC-Interpreters 

® Übersichtliche Auflistung 
aller vom Interpreter benutz- 
ten RAM-Zeilen mit allen 
Verwendungszwecken 

® Über 150 ausführlich doku- 
mentierte Unterprogramme: 
- Funktion 
- Ein/Ausgabeparameter 

Auch für Apple-lle und c und 

Kompatible! 


Apple li Pascal 

Eine praktische Anleitung 
von Arthur Luehrmann und 
Herbert Peckham 

1982, 544 S., kart., DM 59,- 


Are 
PASTAL 





Dieses Buch ist unentbehrlich 
für alle, die die Programmier- 
sprache PASCAL lernen 
wollen und Zugang zu einem 
Apple Computer haben. 

Sie benötigen keinerlei Vor- 
kenntnisse, sondern lernen an 
Hand von Beispielen und 
Übungen, wie man selbst 
PASCAL-Programme entwik- 
kelt und sie austestet und 
werden allmählich von Kapitel 
zu Kapitel vertrauter im 
Umgang mit dem Apple 
Computer. 


Start mit Apple-Logo 
für I, le und lic 

Das kleine Logo-Einmaleins: 
Grafik » Text « Musik 

Von D. Senftleben 

1985, 222 Seiten, DM 35,- 


Viele Mikrocomputer-Her- 
steller bieten für ihre Geräte 
neben BASIC und anderen 
Programmiersprachen 
zunehmend auch Logo an. 
Durch ihre Benutzerfreund- 
lichkeit hat diese Sprache 
bereits viele Freunde im 
Ausbildungs- und Freizeitbe- 


Start mil 
Apple-Logo für 
A | fell, Ice und Ike 








reich gefunden. Dabei ist 
Logo eine mächtige 
Sprache, die auch dem 
anspruchsvollen Anwender 
kaum Wünsche offenläßt. 
Mittels Schildkrötengrafik 
wird das kleine Logo-Einmal- 
eins in 12 Lektionen entwik- 
kelt. Große Bildschirmfotos 
begleiten den Leser durch 
die Lektionen. Das Buch ver- 
langt aktive Mitarbeit. Es hat 
seinen Platz neben dem 
Computer und gibt Hilfen 
und Anregungen für eigenes 
Forschen. Dank des bau- 
steinorientierten Konzepts 
kann jeder seine eigenen 
Teilbausteine erzeugen und 
sie zu neuen Blöcken 
zusammenfügen. Neben 
dem Einmaleins werden 
neue Einsatzbereiche für 
den Einsteiger erschlossen. 
Musik und Sound fehlen 
nicht. 

In diesem Buch werden die 
beiden offiziellen Logo-Pro- 
dukte der Firma Apple für die 
Rechnerfamilie Apple Il, Ile 
und Ilc behandelt und deren 
Unterschiede verdeutlicht. 
Weiterhin sind sämtliche 
Apple-Logo-Vokabeln über- 
sichtlich zusammengestellt, 
Dieses Buch ist ideal zum 
problemliosen und vergnüg- 
lichen Start in die Apple- 
Logo-Welt. 


Apple li 
Anwenderhandbuch 
von Lon Poole 

1982, 450 S., zahir. Abb., 
kart., DM 56,- 


Auch für diesen Computer 
haben wir den richtigen Leit- 
faden. Er erspart Ihnen zeit- 
raubendes und nutzloses 
Suchen nach der wirklich 
verwendbaren Dokumenta- 
tion für Ihren Computer. Das 
Anwenderhandbuch 
beschreibt zum einen den 
beliebten Apple II-Computer 
als solchen und gibt zum 
anderen ausführlich Aus- 
kunft über die normalen 
Peripheriebausteine und 
Zubehör einschließlich Disk- 
Laufwerken und Drucker. Mit 
Hilfe dieses Buches werden 
Sie Ihren Apple Il erfolgreich 
einsetzen, denn der Informa- 
tionsgehalt geht weit über 
das hinaus, was hersteller- 
seitig an Literatur angeboten 
wird. Sie lernen BASIC auf 
zwei verschiedene Arten zu 
verwenden. Wie man den 
Gebrauch von Klang, Farbe 
und Grafik zum Optimum 
führt. Sie erhalten Tips für 
fortgeschrittene Programm- 
erstellung. Sie erfahren die 
Verwendung des Maschi- 
nensprachen-Monitors 
u.v.m. Mit dem Apple Il- 
Anwenderhandbuch werden 
Ihnen alle Möglichkeiten 
eröffnet, die in diesem Com- 
puter stecken. 


Apple Il Pascal 
Sprache 
1985, 197 S., DM 39,- 





Apple Il Pascal 
Betriebssystem 


1985, 256 S., DM 49,- 
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von Ing. (grad.) Ernst Fischer 


Ein gutes Adreßverwaltungsprogramm 
(künftig Adv genannt) sollte mindestens 
folgende Anforderungen erfüllen: 

Das Programm soll anwenderfreundlich 
sein; es kommt also nur eine Menütech- 
nik in Frage. Personaldaten müssen leicht 
veränderbar sein; es sollte eine Such- 
funktion nach Vorname, Familienname 
und nach Bemerkungen existieren. Vor- 
teil: Man findet auch Personen wieder, 
deren Namen sich durch Heirat verändert 
haben. Die Suchfunktion nach Bemerkun- 
gen sollte es ermöglichen, auch Teilstrings 
innerhalb der Bemerkung zu finden. Von 
einem Adv-Programm erwartet man nicht 
nur, daß es für die gespeicherten Adres- 
sen Adreßaufkleber und Absender 
druckt, sondern auch ein Adreßverzeich- 
nis im Taschenkalenderformat ausgibt. 
Schließlich müssen Datensätze leicht, 
aber nicht versehentlich gelöscht werden 
können. Ein gutes Adv sollte nur über ein 
Passwort benutzbar sein, um es vor 
nichtautorisierten Personen zu schützen. 
Es interessiert den Benutzer auch, wievie- 
le Datensätze gespeichert sind und wann 
der leizte Zugriff war. Diese Informationen 
sollten bei Beginn vom Adv ausgegeben 
werden. All diese Forderungen werden 
von diesem Programm erfüllt. 

Als Grundlage dient die relationale 
Datenbank dBASE. Einer der wesentlich- 
sten Vorteile von dBASE Ist die Flexibilität, 
bedingt durch eine eigene Programmier- 
sprache. Mit ihr läßt sich praktisch jedes 
Problem lösen, wie im folgenden noch ge- 
zeigt wird. Für eine sinnvolle Anwendung 


AO 









ist folgende Gerätekonfiguration erforder- 
lich: Ein Apple II/lI+/lle oder kompatible 
Nachbauten, zwei Diskettenlaufwerke, ein 
Drucker und eine Z80-Karte (läuft unter 
CP/M). Natürlich muß man im Besitz der 
relationalen Datenbank dBASE sein. Lei- 
der können Besitzer eines Apple Ilc die 
Vorteile dieses Programms wegen der 
fehlenden Slots nur mit einer teuren Zu- 
satzkarte nutzen. Die Druckersteuerzei- 
chen in den Unterprogrammen beziehen 
sich auf Epson-Drucker. 

Wichtig bei der Anwendung: Zu beachten 
ist bei der Benutzung des Adv lediglich, 
daß man das Programm nur über die Op- 
tion 9 des Hauptmenüs verläßt. Nur so ist 
gewährleistet, daß die benutzten Dateien 
wieder geschlossen werden. Hält man 
sich nicht an diese Selbstverständlichkeit, 
Kann dies zu Datenverlusten führen. 


Aufbau des Adreßverwaltungspro- 
gramms 


Wie Bild 1 zeigt, wird der Benutzer über 
den aktuellen Zustand des Adv informiert. 
Es zeigt an, wieviele Adressen gespeichert 
sind und an welchem Datum das Adv zum 
letzen Mal benutzt wurde. Schließlich wird 
der Benutzer aufgefordert, das aktuelle 
Tagesdatum einzugeben. Bei einem Re- 
turn wird das alte Datum übernommen. 
Nachdem diese Hürde genommen ist, 
wird der Benutzer aufgefordert, seine Zu- 
griffsberechtigung durch ein Passwort 
nachzuweisen. Das Passwort wird dabei 
aus Sicherheitsgründen nicht am Bild- 
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schirm angezeigt. Bei richtiger Eingabe er- 
schließt sich nun erst das Hauptmenü; 
man kann über die gespeicherten Daten 
verfügen. 





Auflistung und Funktion 
der einzelnen Programme 
(vgl. Bild 2) 


Die Programme in Laufwerk A: haben die 
Aufgabe, menügesteuet auf die 
Datenbank zugreifen zu können. Außer- 
dem befinden sich auf A: die Ein- und 
Ausgabemaske, welche für die Datenein- 
gabe, Datenausgabe und Datenverände- 
rung genutzt werden. Die drei Indexdatei- 
en gestatten einen sehr schnellen Zugriff 
auf die Daten (maximal 2 Sekunden unab- 
hängig von der Datengröße). Mit ihnen 
kann man das indizierte Feld alphabetisch 
ausgeben. Indizierung hat gegenüber Sor- 
tierung den Vorteil, daß die Daten phy- 
sisch nicht verändert werden und auch 
weniger Zeit und Speicherplatz bean- 
sprucht wird. Das Indexregister wird auf 
Laufwerk A: angelegt, weil hier noch Spei- 
cherplatz auf der Diskette zur Verfügung 
steht, der bei großen Datenmengen bei 
Laufwerk B: fehlen würde. In der Memory- 
datei werden schließlich die aktuellen 
Daten des Adv wie die Anzahl der gespei- 
cherten Records und das letzte Zugriffsda- 
tum abgelegt. In Laufwerk B: befindet sich 
ausschließlich die Adv Datenbank, deren 
Struktur später erklärt wird. 


Aufbau der Datenbank 


a Sy Kl ”, N Das Adv sollte so universell wie möglich 
U NET RN ANE | a lin sein und dabei alle Informationen liefern, 
RN re — 3 WS. # A: die beruflich und auch privat interessant 
sind. Sollten für das Adv bestimmte Daten, 
wie Geburtsdatum oder Vorname der Ehe- 
frau zu intim sein, weil man die Person 
mn | an i Fo: nicht so genau kennt, so läßt man einfach 
ie elle 3 f dieses Feld frei. Die Datenspeicherung er- 
se ul N u; ! folgt ausschließlich auf dem Laufwerk B:. 
> ai Sy ln“ GN Somit ist genügend Platz auf der Diskette. 
Alle Kommandodateien, Indexregister und 
der Memoryspeicher sind auf Laufwerk A:. 
Für die Felder FAM, VOR und VORE ist 
jeweils ein Indexregister angelegt; das 
spart Zeit beim Suchen und gestattet auf 
einfache Weise das alphabetische 
Ordnen. 
Die Datenbank wird folgendermaßen an- 
gelegt: Man startet dBASE im Laufwerk A: 
mit der Eingabe von „dbase” <RETURN> 
(das CP/M Betriebssystem muß natürlich 
auf der dBASE-Diskette sein). Nach der 
Eingabe des Tagesdatums oder einem Re- 
turn meldet sich dBASE mit einem Punkt 
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als Promptzeichen. Für die Generierung 
des Adv geben Sie den dBÄSE-Befehi 
CREATE B:ADRESSEN ein. Daraufhin er- 
fragt sich dBASE die Struktur der 
Datensätze. Nachdem Sie das 17. Feld 
eingegeben haben, schließen Sie mit RE- 
TURN ab. Auf die Frage, ob Sie die Daten 
jetzt sofort eingeben wollen (INPUT DATA 
NOW?) antworten Sie mit „N“ (No). Damit 
liegt die Struktur des Adv in Laufwerk B: 
fest, Vergleiche hierzu Bild 3. 


Eingabe der Kommandodateien 


Die Eingabe sollte nicht mit dem dBASE- 
Editor mit Hilfe des MODIFY-COMMAND- 
Befehis eingegeben werden. Es hat sich 
gezeigt, daß ab einer bestimmten Länge 
der Programme der Editor verrückt spielt. 
Statt dessen sollte die Programmeingabe 
mit WordStar erfolgen. Außerdem hat man 
dabei mehr Komfort. 

(Anm. der Red.: Wegen des großen Um- 
fangs der Kommandodateien sind alle er- 
forderlichen CMD-Files mit Ausnahme ei- 
nes Beispiels {Bild 5} nur auf der Peeker- 
Sammeldiskette enthalten. Da diese Dis- 
keite im DOS-Format beschrieben ist, 
transferieren Sie die Files mit dem Pro- 
gramm APDOS der CP/M-Systemadiskette 
von DOS nach CP/M. Danach liest dBASE 
diese Files einwandfrei.) 


Beschreibung der Programmteile 


START.CMD (Programmbeschreibung) 
Das Programm gibt Informationen über die 
Datenbank (letztes Zugriffsdatum, Anzahl 
der Records usw.). Diese bezieht es zum 
Teil aus dem Memoryspeicher von dBASE. 
Die Datumseingabe wird auf gültige Werte 
überprüft; erst dann kann im Programm 
fortgefahren werden. Es erfolgt eine Über- 
prüfung des eingegebenen Passwortes. 
Wünschen Sie ein anderes Passwort, SO 
ersetzen Sie „PEEKER" durch das Wort 
Ihrer Wahl. Wird später beim Gebrauch ein 
falsches Passwort eingegeben, so löscht 
dBASE alle bis dahin gemachten Eingaben 
vom nichtautorisierten Benutzer und kehrt 
zum CP/M-Betriebssystem zurück. 
Stimmt das eingegebene Passwort mit 
dem gespeicherten überein, wird das 
Hauptmenü aufgerufen. 


HMENUE.CMD (Programmbeschreibung) 
Das Hauptmenü gestattet den Zugriff auf 
die einzelnen Unterprogramme. Wird Op- 
tion 9 (Ende) gewählt, so werden zuerst 
alle Speichervariablen mit „RELEASE 
ALL“ gelöscht. Dann wird die Datenbank 
mit „USE B:ADRESSEN" eröffnet und der 
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Zeiger auf den letzten Record gesetzt. Die 
Nummer dieses Records wird im Varia- 
blenspeicher „R:NR“ in den Memoryspei- 
cher geladen. Danach wird mit „CLEAR“ 
die Datenbank geschlossen. „CANGEL“ 
verläßt das Hauptmenü und das dBASE- 
Promptzeichen erscheint. Ersetzt man 
„SCANCGEL“" mit „QUIT", so kehrt man 
zum CP/M-Beitriebssystem zurück. 


AUFNAHME.CMD 
bung) 

Zuerst wird die Adv-Datenbank mit „USE 
B:ADRESSEN“ eröffnet und der Zeiger an 
das Datenende gesetzt. Mit „APPEND 
BLANK“ wird ein leerer Datensatz ange- 
hängt, der dann durch den Aufruf der Auf- 
nahmemaske gefüllt wird. Die WHILE- 
Schleife wird solange durchlaufen, bis 
man die Frage „Weitere Eintragungen?“ 
mit „N beantwortet, Hat man die Eingabe 
durch „N“ abgebrochen, so werden drei 
Indexdateien angelegt; eine für den Fami- 
liennamen, eine für den Vornamen der 
Eingabeperson und eine für den Vorna- 
men von Ehefrau/Ehemann. Mit „CLEAR“ 
wird die Datenbank geschlossen. 


(Programmbeschrei- 


AUFMASKE.CMD 
bung) 

Die Aufnahmemaske dient zur einfachen 
und übersichtlichen Eingabe der Personal- 
daten. Dieser Programmbaustein wird 
auch bei Veränderung der Personaldaten 
genutzt. Das Programm erzeugt den Bild- 
schirmausdruck von Bild 4. 


(Programmbeschrei- 


AUSGABE.CMD 
bung) 

Die Ausgabemaske (AM) ist im Prinzip 
genauso wie die Eingabemaske (EM) auf- 
gebaut. Der Unterschied ist folgender: Bei 
der EM mußten ja die Daten in die Spei- 
chervariablen eingelesen werden; deshalb 
die „GET"-Befehle. Bei der AM werden 
die Speichervariablen aber auf den Bild- 
schirm gegeben. Hier also keine „GET"- 
Anweisung, sondern „SAY“-Anweisun- 
gen. Der Cursor bleibt sofort auf der letz- 
ten Zeile (hinter J/N) stehen; man braucht 
sich nicht mit Return bis zur letzten Zeile 
vorarbeiten. 


(Programmbeschrei- 


SUCH.CMD (Suchprogramm) 

Das Suchprogramm sucht, wie sein Name 
es vermuten läßt, nach einem bestimmten 
Datensatz, wenn der Familienname oder 
ein Teil davon bekannt ist. Die WHILE- 
Schleife wird solange durchlaufen, wie der 
vorhandene Datensatz 0 und somit noch 
nicht gefunden ist. Ist der Zeiger am Ende 
der Datei, erscheint die Meldung, daß es 
diese Person nicht gibt. Man hat die Mög- 


lichkeit, mit Return die Suche abzubre- 
chen oder, nachdem man den Namen der 
gesuchten Person neu eingegeben hat, 
einen neuen Suchvorgang zu starten. 
SUCH.CMD wird in folgenden Komman- 
dodateien verwendet: 

- EDITFNAM.CMD 

- SUCHFNAM.CMD 

- SCHREIBA.CMD 

- LOESCH.CMD 


EDITFNAME.CMD 
bung) 

Dieses Programm erlaubt Änderungen 
von Datensätzen. Nach der Eingabe des 
Familiennamens (optional auch zusätzlich 
des Vornamens) sucht dBASE in der In- 
dexdatei den gewünschten Namen. Ver- 
läuft die Suche negativ, erscheint eine ent- 
sprechende Meldung. Der Benutzer hat 
die Möglichkeit, beliebig oft die Namens- 
eingabe zu wiederholen oder durch ein 
Return zum Hauptmenü zurückzukehren. 
Wurde auch der Vorname eingegeben, so 
erfolgt nun mit „LOCATE” die Suche nach 
dem Datensatz, der beide Kriterien erfüllt 
(Vor- und Familienname). Die „FIND“-An- 
weisung dient dabei zum schnellen Finden 
des Familiennamens. Da davon auszuge- 
hen ist, daß verschiedene Personen den 
gleichen Familiennamen haben, ist es 
zweckmäßig, auch den Vornamen einzu- 
geben. Mit dem LOCATE-Befehl wird 
dann die Person sicher gefunden. Die Auf- 
nahmemaske erlaubt dabei eine bequeme 
Veränderung der Daten. 


(Programmbeschrei- 


SUCHFNAM.CMD 
bung) 

Will man sich die Daten einer Person kom- 
plett am Bildschirm anschauen, so ruft 
man dieses Kommandoprogramm auf. 
Nachdem Sie den Familiennamen der ge- 
wünschten Person eingegeben haben, 
sucht das Unterprogramm SUCH.CMD 
den Datensatz. Wird er nicht gefunden, 
können sie mit Return abbrechen oder 
einen erneuten Suchvorgang_ einleiten. 
Die Daten werden mit der Ausgabemaske 
am Bildschirm angezeigt. Beantworten Sie 
die Frage „Ist dies die gewünschte Person 
(J/N)” mit N(ein), so wird mit LOCGATE die 
nächste Person gesucht, auf welche das 
Suchkriterium zutrifft. Dieses Spiel geht so 
lange, bis die Person gefunden ist oder 
der Datenzeiger am Dateiende angelangt 
ist. 


(Programmbeschrei- 


SUCHVNAME.CMD (Programmbeschrei- 
bung) 

Manchmal weiß man von einer Person nur 
den Vornamen, weil der Familienname 
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sich durch eine Heirat geändert hat. Das 
Programm ist ähnlich aufgebaut wie 
SUCHFNAME.CMD. Wird der Vorname 
nicht in der Indexdatei Beta gefunden, so 
wird in der Indexdatei Gamma weiterge- 
sucht. Hier sind die Vornamen der Ehe- 





Bild 1: Aufbau des Adreßverwaltungsprogranmnms 


Programminformation 


Autor, letztes Zugriffsdatum, 
Anzahl der Eintragungen, 





Memorydatei f 


CPM 494 









Aktuelles Tagesdatum 
partner indiziert. Verläuft die Suche auch 


hier ergebnislos, so erfolgt die Meldung 
„Den Vornamen XXX gibt es nicht!“. Mit 
Return kann man die Suche abbrechen 
oder durch eine erneute Eingabe den 
Suchvorgang wiederholen. Ist die ange- 
zeigte Person nicht die richtige, so werden 
mit LOCATE nacheinander alle Personen 
mit dem entsprechenden Vornamen aus- 
gegeben, bis der EOF-Marker erreicht ist. 


Uberprüfung des Benutzers 


Abfrage des Passwortes 


Hauptmenu 















Eingeben der Personaldaten 
Verandern der Personaldaten 
Suchen nach Familiennamen 
Suchen nach Vornamen 

Suchen nach Bemerkungen 
Adreßaufkleber drucken 
Adreßlisten drucken/ 
Adressen anschauen 

Loschen eines Datensatzes 
Ende 


Aufnahmemaske 
Ausgabemaske 






Datenbank 


SUCHBEME.CMD (Programmbeschrei- 
bung) 

Oft kommt es vor, daß man von einer 
Person sowohl Familien- als auch Vorna- 
men vergessen hat. Dann helfen bezüg- 
lich der Person gemachte Bemerkungen 
weiter. Das Programm findet auch Teil- 
strings aus der Bemerkung. Ein Beispiel: 
Man hat als Bemerkung „Mitglied beim 
Computerarbeitskreis” eingegeben. Als 
Teilstring genügt „arbeitskreis”. Es wer- 
den alle Personen nacheinander ange- 
zeigt, die bei Bemerkungen den Teilstring 
„arbeitskreis“ haben, Wird der Teilstring 
nicht gefunden, so kann man wieder mit 
Return die Suche abbrechen oder ein neu- 
es Suchkriterium eingeben. 


109001 AQNH 
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Indexdatealen 


Schneller Zugriff auf die 
Felder der Datenbank 
| Laufwerk A: | Laufwerk B: | 


Bild 2: Auflistung der Unterprogramnme des Adv in Laufwerk A: 


Programmname Funktion des Programmes 


SCHREIBA CMD (Programmbeschrei- AD-START.CMD —> Startprogramm, informiert über das Programm, 
" Recordanzahl, letztes Zugriffsdatum usw, 


bung) HMENUE.CMD  --> Erlaubt den Zugriff auf die einzelnen Unter- 
Zu einer Adreßverwaltung gehört auch ein programne 
A 3 AUFNAHME,CMD --> Dient zur Dateneingabe; es wird eine Eingabe- 
Programm, das Adressen und Absender I ORTE 
aufkleber drucken kann. Die gewünschte AUFMASKE.CMD --> Maske zur Dateneingabe und Datenveränderung. 
Person wird mit dem schon bekannten AUSMASKE,CMD --> Maske zur Datenausgabe. 
EDITFNAME.CMD —-> Erlaubt die Veränderung der Personaldaten; es 
Suchprogramm SUCH.CMD gefunden. wird die Maske zur Dateneingabe benutzt. 
Wie man aus dem Anredemenü sieht, hat SUCHFNAME.CMD —-> Erlaubt die Suche nach einer bestimmten Person; 
i t = Als Suchkriterium dient der Familienname 
27 alle erdenklichen Optionen. wahlt SUCHVNAME.CMD --> Erlaubt die Suche nach einer bestimmten Person; 
man Option-Nr.1, so kann man für sich Als Suchkriterium dient der Vorname. 
Absenderaufkleber drucken lassen. Op- SUCHBEME.CMD -—-> Erlaubt die Suche nach einer Bemerkung oder 
‚ . FR einem Teil in der Bemerkung. 
tion-Nr.7 gestattet individuelle Anreden SCHREIBA.CMD --> Schreibt Adressenaufkleber 
wie Firma o.ä. Hat man sich für eine der SCHREIBL.CMD --> Schreibt Adressenlisten im Taschenkalender- 
sieben Möglichkeiten entschieden So Er- format und listet auf dem Bildschirm die 
B : : e Records auf, 
scheint die Adresse richtig formatiert auf LOESCH.CMD  --> Löscht die Personaldaten einer Person 
dem Bildschirm. Hat man sich zum Aus- SUCH.CMD -—-> Sucht nach gewünschten Datensätzen 
druck entschieden, wird man nach der An- 
zahl der zu druckenden Exemplare gefragt Bild 3: Struktur der Datenbank 
und gebeten, den Drucker einzuschalten. 


; Feld Name Bezeichnun Type Feldbreite 

Nach dem Justieren der Aufkleber kann = u 

nach einem Return der Druck beginnen. 1 FAM Familienname 5 2 
. \ . . 2 VOR Yorname 

Die Druckersteuerzeichen sind für den s a a - a 
Epson FX-80 gedacht. 4 ORT Wohnort c 15 
5 STR Straße GC 25 
6 GEBD Geburtsdatum G 8 
SCHREIBL.CMD (Programmbeschrei- 7 BEM Bemerkung e 50 
bung) 8 TNRP Privattelefonnr. & 6 
i 9 VWPr Vorwahl Privat @ 6 
Eine Adreßverwaltung taugt nur etwas, 19 Ra alanasvoreahl c 6 


wenn man die gespeicherten Adressen : 
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immer verfügbar hat in Form einer Hartko- 
pie. Verfügbar heißt, immer und überall 
greifbar. Dieser Forderung kommt das 
Programm in besonderer Weise nach. Der 
Ausdruck erfolgt namlich im Taschenka- 
lenderformat; auf einer Größe von 8 cm x 
14,5 cm bekommt man einen Ausdruck, 
den man in gebundener Form in jeden 
handelsüblichen Taschenkalender ein- 
schieben kann. Zu diesem Zweck schnei- 
det man sich einzelne Blätter von der Grö- 
Be 16 cm x 14,5 cm, die man in der Mitte 
faltet und beidseitig bedrucken läßt. Die 
Papierende-Erkennung des Druckers wird 
automatisch abgeschaltet. Vor dem Blatt- 
ende wird man aufgefordert, ein neues 
Blatt einzuspannen. Es erfolgt dabei eine 
automatische Zeilenberechnung, so daß 
eine Adresse immer auf einem Blatt endet 
und nicht ein Teil auf die nächste Seite 
übernommen werden muß. Die Datenaus- 
gabe wird so formatiert, daß nicht vorhan- 
dene Personalien auch nicht ausgegeben 
werden. Beispiel: Es ist keine Bemerkung 
abgespeichert; also wird diese Zeile auf- 
gerückt und die Abkürzung „Bemerk.:” 
erscheint nicht. Oder: Der Vorname ist 
nicht bekannt; der Familienname wird 
linksbündig geschrieben. 


Neben einer Hartkopie gibt dieses Pro- 
gramm auch eine geordnete Übersicht der 
gespeicherten Daten am Bildschirm aus. 
Die Formatierung erfolgt in der gleichen 
Weise wie beim Drucken. 


LOESCH.CMD (Programmbeschreibung) 
Ab und zu muß man seine Adreßdatei 
bereinigen. Man möchte bestimmte Per- 
sonen aus der Datei löschen. Das Pro- 
gramm fragt nach dem Familiennamen der 
zu löschenden Person. Das Suchpro- 
gramm SUCH.CMD verfährt nach der uns 
schon bekannten Weise und zeigt uns, 
anhand der Ausgabemaske, die erste Per- 
son mit diesem Namen. Ist dies nicht die 
gewünschte Person, so wird mit LOCATE 
die nächste Person präsentiert, auf die das 
Suchkriterium zutrifft. Das Spiel geht so- 
lange, bis entweder die gesuchte Person 
gefunden ist, oder der Zeiger an der EOF- 
Marke angekommen ist. Ist die Suche po- 
sitiv verlaufen, erscheint eine deutliche 
Warnung, daß die Person mit den folgen- 
den Daten gelöscht wird. Man hat jetzt die 
letzte Möglichkeit, den Löschvorgang ab- 
zubrechen. In diesem Fall antwortet man 
auf die Frage „Ist dies die gewünschte 
Person zum Löschen (J/N)“ mit „N“. Ant- 
wortet man mit „J“, so wird einem noch 
einmal der Name der Person gezeigt, von 
der soeben alle Daten gelöscht wurden. 
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11 VWD Vorwahl Dienst e 6 
12 TNRD Diensttelefonnr, C 8 
S NAT Nationalität (KFZ) E 2 
14 VORE Vorname der Ehefrau 5 14 
15 GEBDE Geburtsdatum Ehefrau C 8 
16 VWDE Vorwahl Dienst Ehefrau Ü 6 
17 TNRDE Diensttelefonnr. der Ü 8 


Ehefrau 


Bild 4: Maske zur Aufnahme der Adreßdaten 


= | rn = En —m—mnnnnnnnnnnn 


Bitte geben Sie die Daten für das Adreßregister ein.,. 





| 
ne een 
! Fam.Name: Vornane: Geb.Datun: 

! 

| Ehefrau:........ \sinesesa. Vorname: Geb,Datun; 

I 

! Bez: Wohnort: Straße u.Nr.: 

I 

! Land (Intern.KFZ-Zeichen als Abkürz.): 

U SE N a a ee a ee ee ee N 

I Telefon Priv. Vorwahl: Rufnr Auslandsvorwahl: 

| 

| Telefon Die, Vorwahl: Rufnr= : 

l 

! Ehefrau.,, Telefon Dienstlich Vorwahl: Rufnr.: 

op aa Pers kan sen Eon Fan m ee es NEN, 

! Bemerkung: 

EEE EEE 


Bild 5: Beispiel für die erste Command-Datei (AD-START,CMD) 
(Die übrigen CMD-Files befinden sich auf der Peeker-Sammeldisk) 


* DO START.CMD (Startet das Adv) 
ERASE 

SET TALK OFF 

RESTORE FROM MEMORY 

STORE CHR (15) TO INVERSE 
STORE " 

STORE F TO OK 

8 23,0 SAY INVERSE + "ADRESSEN 


" TO ZGBER 


STAR Lu 
u 
6,2154 "ADRESSENVERWALTUNG 
8,21 SAY "APPLE //e Ver. 1.9 8/84" 
18,21 SAY "AUTOR : ERNST FISCHER" 
15,9 SAY "Letzter Zugriff : "+ DATE + 
er Anzahl Records : " 
S 15,68 SAY STR(R:NR,3) 
DO WHILE ‚NOT. OK 


wm a War 0 


8 17,9 SAY "Bitte geben Sie das Datum ein <TT/MM/JJ> Pr 
GET DATE PICTURE '99/99/99' 
READ 
IF VAL($(DATE,1,2)) > 31; 
‚OR. VAL(${(DATE,1,2)) < 1; 
„OR, VAL($(DATE,4,2)) > 12; 
.„OR. VAL($(DATE,4,2)) < 1; 
-OR. VAL($(DATE,7,2)) < 83 
? CHR {7) 
ELSE 
STORE T TO OK 
ENDIF 
ENDDO 
ERASE 
STORE $(DATE,1,2) + " "+ $(DATE,4,2) + " " + $(DATE,7,2) TO DATUM 


SET DATE TO &DATUM 
S 23,9 SAY INVERSE + "ADRESSEN 
= DATUM ı + DATE() 
$ 17,5 SAY "Bitte Passwort eingeben u 
SET CONSOLE OFF 
AGCEPT ' TO ZGBER 
SET CONSOLE ON 
ERASE 
RELEASE OK, DATUM, DATE 
IF ZGBER < > "PEEKER" 
RELEASE ALL 
ERASE 
QUIT 
ENDIF 
DO HMENUE 
*Ende von AD-START 


START + 
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Frei definierte Sonderzeichen auf dem FX-80 nutzen 


von Dipl.-Ing. H. A. Rohrbacher 


Normalerweise drucken die Epson-Ma- 
trixdrucker der MX- oder FX-Serien den 
mit ihren DIP-Schaltern eingestellten 
Vorzugszeichensaätz aus. In aller Regel 
ist dies der deutsche Satz mit den Um- 
lauten, dem ß und dem Paragraphzei- 
chen. Dies geschieht völlig unabhän- 
gig von der Darstellung der Sonderzei- 
chen auf dem Bildschirm. 


Nun kommt es häufig vor, daß man entwe- 
der in einer fremden Sprache korrespon- 
dieren oder in deutschen Texten die ecki- 
gen oder geschweiften Klammern verwen- 
den möchte, die aber beim deutsch einge- 
stellten Drucker nicht ohne weiteres er- 
reichbar sind, Hier bietet der Drucker die 
Möglichkeit eines Software-Schalters, der 
die Umschaltung auf einen zweiten Spra- 
chensatz veranlaßt. Beim Epson-Drucker 
ertolgt die Auswahl des Zeichensatzes 
über ESC R (n), also in Applesoft durch 
PRINT CHR$(27) “R“; CHR$(n), wobei 
„n“ die Zeichensatz-Nummer ist (ASCIl: n 
= 0, Französisch: n = 1, Deutschn = 2 
USW.). 


"A = ASCII EIN N = DEUTSCH EIN 
{=iä ı=Öö y =ü 
([=-&ä \=6ö IJ=ü 
DH e=58 — 
>E u Engschritt EIN/AUS äsuBaö85 = LHY°T\1E 
> -> “D wei Ab=tEt ] 
"WE -> ”R”O Sperrschrift 
»D -> “D doppelt gedruckt 
”-B ee fett gedruckt öööstıı 
=W>D ge weit+tdoppelt 
En on T TriedVsteiien Adb-dih 
STTESESZEE LER tinteang ASBBEInCIHeRE 
Zy -) N hochstellen Zuu=c04] 


SYS >E _. »Y-N>R Sperr-+-hochetellen 


Yu —> 
Tabelle 2 


er ee Ho m 
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Adresse: Adr,# Ctrl-P Inhalte Bedeutung 

TRMINIT: #292 #4 14 48 1A 33 CTRL-23 -> deutsche Zeichen 
DEL3: B2D1 ßl (ex: 19) mittellange Warteschleife AUS 
DELA: %2D2 Bl (ex: 4) lange Warteschleife AUS 

DELS5: 2D3 #8 (ex: 89) Ctrl-delay AUS 

PALT: B6B5: 1A 93 1ıB 52 89 ESC-Sequ.-> ASCII-Zeichen EIN 
PSTD: B6EBA: TN 93 1B 52 82 ESC-Sequ.-> deutsche Zch. EIN 
USRl: BecH: 10 93 ıB 57 BP ESCW@® -> Weit AUS 

USR2: B6ECE: 7W 93 ıB 57 61 ESCW1 -> Weit EIN 

USR3: d6D3: FE PL PF SI=CHR$(15) -> Eng EIN 

USR4: B6D8 ’R 93 12 1B 59 DC + ESC P -> Eng AUS+-NORMAL 
RIBBON: A6DD tY 83 1B 53 99 ESC SB -> Hochstellen EIN 
RIBOFF': B6E2 1Y 9a ı1B 54 1B 48 ESC T +H -> Hochstellen AUS 
ROLUP: BSBF +T 983 1B 53 O1 ESCS 1 -> Tiefstellen EIN 
ROLDOW: 8604 Tr 84 1B 54 1B 48 ESC T +H -> Tiefstellen AUS 
PSINIT: B6ET7 67 1B AB 1B 52 82 1B 4F -> dt. Drucker INIT 
PSFINI: A6F8 09 1B 57 dB 12 1B 48 1B 52 92 -> Drucker END 
BLDSTR: f69ı TB B3 Fettdruck 3mal Anschlag 
DBLSTR: ö692 1D 82 Doppeldruck 2mal Anschlag 
Tabelle 1 Patches für den mnemotechnichen WORDSTAR 3.8 mit den 


frei wählbaren deutschen oder ASCII-Sonderzeichen. 


Man kommt zum Ziel, wenn diese Um- 
schaltung mit einem Ctrl-Code ermöglicht 
wird. Hierzu bietet Wordstar die Labels 
PALT: und PSTD: an. Diese haben die 
Adressen 06B5H bzw. 06BAH und wer- 
den über TA und N aktiviert. In der 
Praxis verfährt man wie folgt: 

Der beim Booten angebotene Sprachsatz 
ist zunächst deutsch. Soll nun im Verlauf 
des Editierens ein ASCIl-Zeichen ausge- 
druckt werden, so gibtman TA (= Cirl-P- 
Ctrl-A) und drückt dann diejenige Taste, 
die dem ASCII-Zeichen entspricht (siehe 
Tabelle 2). Danach schaltet man wieder 
mittels * N (= Ctrl-P-Ctri-N) auf den deut- 
schen Satz zurück. ? A istalso der (A)lter- 
native, * N der (N)ormal installierte Satz. 
Wichtig ist, daß die Drucker-Initialisierung 
deutsch erfolgt. Diese Festlegung erfolgt 
im Label PSINIT: in Adresse O6E7H (WS 
V3.0) und wird in PSFINI: mit 1B 52 02 


wiederholt. So wird dafür gesorgt, daß der 
Neuausdruck einer Datei - trotz eines ver- 
gessenen TN - mit keinem anderen als 
dem deutschen Zeichensatz startet. 

Die Vorgehensweise des Patchens wurde 
bereits in dem vorhergehenden Aufsatz 
erläutert. In der nachstehenden Tabelle 1 
wurden die übrigen Patches für die unter- 
schiedlichen Schriftarten (breit, eng, ge- 
sperrt, fett, doppelt, indiziert) so gewählt, 
daß die Otrl-Codes mnemotechnische Re- 
geln befolgen. Alle wichtigen Labels sind 
aufgeführt. Zu beachten ist, daß das ?- 
Zeichen für „Ctrl-P” steht. 

Tabelle 3 nennt die Label-Inhalte für die 
neun verschiedenen Zeichensätze, die 
beispielsweise der FX-80 anbietet. Man 
kann sich so eine deutsch-französische 
oder deutsch-spanische WS-Version anle- 
gen und würde, wollte man nur in französi- 
scher Sprache schreiben, gleich zu Be- 
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ginn der Datei ein FA setzen. Dieses 
„FLAG“ müßte nicht einmal durch IN 
zurückgesetzt werden, da bei Druckbeen- 
digung der Inhalt von PSFINI: automatisch 
wieder für deutsche Verhältnisse sorgt. 
Die Texte der Abbildungen 1-3 zeigen 
zweisprachige Beispiele. 


Deoutech + ABserı 


en ASEII+DEUTSCH gepatchten WORBSTAR können dıe Umlaute 
ou sowie das Scharf Rn 5ERB und diese Zeichnen: 555 mıt den 
us- -ASCII-Sonderzeıchen tl oder der Tılde *"* und dem AT- 
ign &@& u Hal gemis Mr “werden: [s} oder !A: , 
sınd magli 


Abbildung 1 


auch X 


Frangais! 

Deutsche und franmzasısche Sonderzeichen gemischt: 
vYoilä: Chaque &leve aura son WORDSTAR & Nosl, 
trayaillant en frrangais et allemend en meme temps. 
Das eEe wird ubrıgens so erzeugt: e ctri-FH mit 
anschließenden *, da das & nicht im FX-8B- 
Sprachensatz enthalten ist. Tout est tres simple! 
Es entsprechen: Aäddui’sn = "echseiä ' 


Abbildung 2 


i SERORES ! 


Fa ae ee a Yan ie bannen Teenie 
pardliel zu. dan deutaih aka ee A 
Gm. el Fr-likt foto wa en arut La saniguleeijer Jul 
HANDATAR on 4lmnan vw mmol wu “meiiig 2 hate 
en N ee au oe 

er er wi nme di eh -uenntahben sind ade 
un erzielen tree Anderer rcheoh ih“ 
ihre Beide Taler Ubprolnander erst werner. 


Abbildung 3 


Sonderzeichen mit Wordstar 

Technisch wissenschaftliche Texte enthal- 
ten in der Regel viele Sonderzeichen, bei- 
spielsweise die Elemente des griechi- 
schen Alphabets oder die Buchstaben in- 
dividueller Schriften, wie Inverse oder g90- 
tische Zeichen. Auch sind ganze Sequen- 
zen zusammengesetzter Grafikzeichen 
denkbar, mit denen Bordüren oder beson- 
dere Hervorhebungen des Textes erzeugt 
werden. 


Derartige „Fonts“ können in den Puffer 
der Epson-Drucker der FX-Serie geladen 
werden und stehen zusätzlich zum übri- 
gen Zeichensatz zur Verfügung. Die Fonts 
bezieht man entweder aus bekannten Pro- 
grammen, oder man erstellt sie sich mit 
Hilfe eines Shape-Editors und einem Font- 
Loader nach eigener Vorstellung und Ge- 
schmack. Die letztgenannte Möglichkeit ist 
oftmals die bessere, da man nur diejeni- 
gen Sonderzeichen auswählt und auf die 
Speicherplätze des Puffers verteilt, die 
wirklich auch benötigt werden. Dabei ist es 
zweckmäßig, mnemotechnischen Regeln 
folgend, ein Alpha auf die Taste A, ein Beta 
auf B und das Omega-Zeichen auf O zu 
legen. 

Zur Übernahme eines Sonderzeichens 
aus dem Puffer erwartet der FX-80 den 
Befehl ESC % 1 0, während die Rück- 
schaltung auf den normalen Zeichensatz 
durch ESC % 0 0 bewirkt wird. 
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PALT: B6B5 tA #3 1B 52 


EIN: 
Ctrl-P-Ctrl-A 


r>s1ID- 


AUS: 
Gtrl-F-Ctrl-N 


Tabelle 3 


99 


B6BA IN 03 1B 52 92 


= ASCII / USA EIN 
= Frankreich 

= Deutschland 

= England 

= Dänemark 

= Schweden 

= Italien 

= Spanien 

= Japan 


= Fremdsprachen AUS 


LABEL-Inhalte für die einzelnen Fremd- 


sprachen-Sonderzeichen mit Deutsch als 


Default. 


Pro WORDSTAR-Diskette kann 


immer Deutsch mit einer ausgewählten 
Fremdsprache kombiniert werden. 


Zur Aufnahme dieses Befehlssatzes in 
Wordstar bieten sich - falls nicht ander- 
weitig vergeben — die Labels PALT: und 
PSTD: mit dem Aufruf TA (alternativer 
Satz) bzw. TN (normaler Satz) an. Die 
Label-Inhalte werden mit dem INSTALL- 
Programm wie folgt gesetzt: 


PALT: 04 1B 25 01 00 
PS1D::041B 25.0000 


Ein weiterer Schritt muß nun folgen; denn 
es lauert eine böse Falle bei der Drucker- 
Initialisierung PSINIT: und dem Druck-En- 
de PSFINI:. Dort wird normalerweise mit- 
tels I1B40 = „alles auf normal zurückset- 
zen” der Puffer gelöscht. Daher muß die- 
ser Befehl ersetzt werden durch eine Rei- 
he von Einzelbefehlen, die das Löschen 
des Pufiers nicht bewirken. Die genannten 
Labeis sind 16 Bytes lang und werden wie 
folgt (gleich) belegt: 


PSINIT: 10 1B 54 1B 25 00 00 1B AF 1B 
o/00 12 1B 46 1B 48 
PSFINI: 10 1B 54 1B 25 00 00 1B 4F 1B 
5/00 12 1B46 1B 48 


Damit ist die Patch-Arbeit beendet. Im 
Text schaltet man die Font-Zeichen mittels 
Otrl-P-A (=TA) ein und mit Ctri-P-N 
= N) wieder aus und damit auf den nor- 
malen Zeichensatz zurück. 


Die folgende Bildschirm-Textzeile 


-— die TAATN-Messung liefert 20 
TAO?T N nach dem T AAB f N-Verfahren 


ergibt ausgedruckt: 


- die a-Messung liefert 28 ®@ nach dem af-Verfahren - 


Zeichen können beliebig zusammenge- 
setzt werden. So entsteht eine Wurzelzahl 


(Abbildung 4) durch einen Wurzelzei- 
chen-Font mit seinen „Dach-Verlängerun- 
gen” und der — mittels dem T PH-Back- 
space — darunter gesetzten Ziffern. Letzte- 
re sind wiederum Font-Elemente, da sie 
kleiner sein müssen, um unter das Wur- 
zelzeichen zu passen. 

Mit nur 4 Grundgrafik-Elementen läßt sich 
das in Abbildung 5 dargestellte Mäander- 
band erzeugen, wobei die Elemente in 
Mehrfach-Serien aufgerufen werden. 


Buispiel wire Wurzelausdrucksi 

am ya rhält man zunächetı WW” 

dann “erden die "Tirtern alt “FH geachriebien 

HH HÖHLDIAN N = Murzelausdruck (Bildachirm) 
ikekurzel, Z=Dach der Kurzel, Ziffern iiogen auf den 
zittern-Tanten! 


17335 >= Wurzelausdruck 


Abbildung 4 


Beispiel eines Mäande 
aus 4-fachem Fi m Bird 


Abbildung 5 





Tabelle 4 zeigt eine typische Font- „Kom- 

position“. Die relevante Tasten-Zuord- 

nung kann mit Hilfe des nachstehenden 

Applesoft-Programms ausgedruckt 

werden. 

100 D$ = CHR$(4) : HOME 

110 E$ = CHR$(27) + CHR$(37) + 
CHR$(1) + CHR$(0) 

120 A$ = CHR$(27) + CHR$(37) + 
CHR$(O) + CHR$(0) 

130 PRINT : PRINT D$"PR#O" 


140 PRINT D$"PR#1" : PRINT : PRINT 

150 FOR | = 32 TO 127 

160 PRINT CHR$();" = ":E$; CHR$(I); 
A$ 

170 NEXT 


180 PRINT D$"PR#+0" 


Nachzutragen ist, daß alle Fonts den ent- 
sprechenden Normalschriften Breit, Eng, 
Sperrschrift, Italic, Elite, hoch- und tiefge- 
stellt, Fett und Doppelt sowie Proportional- 
schrift folgen, so daß hierbei eine unge- 
ahnte Fülle von Varianten zur Verfügung 
stehen. 
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Blick über den Zaun: EII-0++tıltem=./ iu: ’89o0E*+23& 
Die moderne Satztechnik 

Da sich die Terminologie der Matrixduk- Ir \rkAdAvlIı AT Ieme! NIORRAKKAL 
ker-Hersteller nicht mit der des grafischen ARM co Eee EBIAERr-.- 
Gewerbes deckt, wollen wir auch hier 

noch einmal einen Blick über den Zaun — hl Ba _ 2: 
werfen. In der Drucktechnik unterscheidet au Zinn z BE IL LET 
man zwischen Schriftgruppe, Schriittar, B+#-\EAJ4AV II ATI 12% YTyIYUKKNAN 
Schriftschnitt und Schriftgrad. Die Schrift- 

gruppe (group of typeface) isteinevon 10 tuaBX SEES" 7’.K IR Rn EeAaDR on 
lateinischen Schriftkategorien („französi- 

sche Renaissance-Antiqua® usw.). Die E,= I 250er 227 2) 2ıtamZ=i. 7 2 ‚s 93 odE*+FZSJA 
Schriftart (typeface) Ist eine individuelle = 

Schöpfung einer Schrift (z.B. „Gara- Se SB Ze En une VNORRAR ’ 
mond“), die sich einer Schriftgruppe sub- gap xy se 9° 7.KI ku dur #= BTIAOR-.“ 


sumieren läßt. Es gibt ca. 2000 Schriftar- 
ten. Der Schriftschnitt (typecut;, auch font 
genannt) ist eine von mehreren Erschei- 
nungsformen derselben Schriftart (z.B. 
fett, halbfett, mager, kursiv usw.; Sperr- 
schrift gilt dabei nicht als gesonderter 
Schriftschnitt). Der Schriftgrad (type size) 
ist die in Punkt gemessene Größe eines 


Tabelle 4 


0,375mm, angloamerikanischer Punkt 


0,351mm). Die Summe aller Schriftschnit- 
te heißt Schriftfamilie (type family); die 
Summe aller Schriftzeichen eines sSchrift- 
schnittes (beim veralteten Bleisatz in allen 
Schriftgraden) heißt Schriftgarnitur (type 


Schriftschnittes (kontinentaler Punkt 


font). U. Stiehl 






Wellen Sie mit Ihrem MACINTOSH 


grafisch arbeiten? 


Das MacTablett von 
Summagraphies 


ıIiJl se 
u > 






Georg-Brauchle-Ring 68 
D-8000 München 50 
Telefon 089/1415077 
Telex 5214793 





LIMITED 
Niederlassung Deutschland 
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Tıps und Tricks 
in Pascal 






Teil 1: Die versteckte Prozedur „Idsearch“ 


oder wie man Schlüsselwörter halbfett druckt 


von Dieter Geiß 


in dieser mehrere Teile umfassenden 
Serie soll über viele interessante The- 
men für den an Pascal interessierten 
Peeker-Leser berichtet werden. Diese 
werden vor allem programmiertechni- 
sche Kniffe und Eigenheiten des 
UCSD-Systems sein, die nicht in den 
Handbüchern stehen und die man nur 
herausfinden kann, wenn man sich 
lange und intensiv mit dem System be- 
schäftigt. 


Das Problem 


Es sei folgende Aufgabe gestellt: Ein vor- 
handener Pascal-Quelltext, also z.B. der 
SYSTEM.WRK.TEXT, soll auf den Drucker 
oder auch ein anderes Gerät ausgegeben 
werden. Dabei sollen die Pascal-Schlüs- 
selwörter (IF, THEN, ELSE, FOR, DO, 
WHILE...), also die vom Compiler reser- 
vierten Bezeichner (Reserved Words), be- 
sonders hervorgehoben werden, z.B. fett 
oder auch unterstrichen, wie dies auch in 
der Literatur zum Teil üblich ist. Das Pro- 
gramm soll möglichst kurz sein, dabei aber 
auch Kommentare und konstante Zei- 
chenketten erkennen können, in denen 
die reservierten Bezeichner nicht hervor- 
gehoben werden dürfen. 


Die Theorie 


Die Lösung ist eigentlich ganz einfach — 
der Compiler muß die reservierten Wörter 
schließlich auch erkennen können, Warum 
also nicht die (schnelle) Prozedur benut- 
zen, die auch vom Compiler eingesetzt 
wird? 
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Es handelt sich hierbei um „Idsearch“, die 
eine UCSD-Standardprozedur ist. Das 
Problem ist nur, daß sie nirgends erklärt 
wird und man deswegen nicht weiß, mit 
weichen Parametern sie aufgerufen wird 
und was sie genau bewirkt. Um das her- 
auszufinden, muß man entweder ein Com- 
piler-Source-Listing haben oder die Pro- 
zedur Im Interpreter genau untersuchen. 
Da ein Source-Listing im allgemeinen 
nicht vorliegt, muß man auf die zweite 
Methode zurückgreifen. 


Zunächst aber eine kurze Vorbemerkung: 
Ein Bezeichner (Identifier) ist eine Folge 
von Zeichen, bestehend aus mindestens 
einem Buchstaben (A-Z), gefolgt von be- 
liebig vielen Buchstaben oder Ziffern. Nur 
die ersten acht Zeichen sind jedoch in der 
Apple-Version des UCSD-Compilers si- 
gnifikant. Dies gilt sowohl für die Version 
1.1 als auch für 1.2. 

Findet man in einer Zeichenkette also ei- 
nen Buchstaben, so weiß man, daß es sich 
um einen Bezeichner handeln muß, der so 
lang ist, bis ein Trennungszeichen folgt, 
also ein (ASCII-JZeichen, welches kein 
Buchstabe und keine Ziffer ist. 


An diesem Punkt setzt die Prozedur „Id- 
search” an. An diese wird ein Zeiger (Cur- 
sor) sowie ein String oder ein Packed Ar- 
ray of Char übergeben. Der Zeiger muß 
auf den ersten Buchstaben des Wortes 
zeigen, das man untersuchen möchte. In 
Tabelle 1 ist ein Beispiel wiedergegeben. 
Dabei soll 14 die Länge des Strings sein, 
die sich im ersten Byte (Byte 0 des 








Strings) befindet. Symcursor hätte also 
den Wert 1, da das „w“ von while der 
erste Buchstabe des Strings ist. 


a 12345678991234 
S [14]: while I<5 do 


SyMcursor 


Tabelle 1 


Nun ruft man Idsearch (Symcursor, S) auf. 
In der Prozedur geschieht nun folgendes: 
Es wird untersucht, ob ein Pascal-Schlüs- 
selwort vorliegt. Dabei wird Symcursor auf 
das Ende des zu untersuchenden Wortes 
gestellt (siehe Tabelle 2). 


B 1234567891234 
5 [14]: while I<5 do 


SYMGUrSOr 


Tabelle 2 


Gleichzeitig werden aber auch noch drei 
weitere Variablen beeinflußt, die nicht am 
Aufruf beteiligt sind, aber in der Variablen- 
definition direkt hinter der Variablen „Sym- 
cursor” definiert sein müssen (siehe Li- 
sting). 


— In „Sym“ wird die Nummer des Symbolis 
abgespeichert, das gerade gefunden wur- 
de, wenn es sich um ein Schlüsselwort 
handelt. Der Einfachheit halber wurde 
„Sym“ als Integer-Zahl definiert, was für 
diesen Zweck ausreicht. Eigentlich müßte 
„Sym“ eine Variable vom Aufzählungstyp 
sein, also Sym: (Ident, Comma, Colon, ..., 
DOsy, TOsy,...). Ist Sym = 0, so handelt 
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es sich um kein reserviertes Wort, also um 
einen Bezeichner. Ist Sym < > 0, so 
liegt ein reserviertes Schlüsselwort vor. 
Für while ist die Nummer z.B. 23. 


— Die nächste Variable „Op“ wird gesetzt, 
wenn es sich um einen Operator handelt, 
also z.B. AND, DIV, MOD, OR, IN. Wird ein 
solcher gefunden, ist Op < > 0 und Sym 
39, 40 oder 41. „Op“ spielt für unser 
Problem aber keine Rolle. 


— Die Variable „Id“ wird ebenfalls beein- 
flußt. „Id“ ist vom Typ „Alpha“ und kann 
einen Bezeichner (maximal acht Buchsta- 
ben) enthalten. Wenn Sym = 0 ist, dann 
muß es sich um einen selbst-definierten 
Bezeichner oder um eine vordefinierte 
Prozedur wie „Unitread“ etc. handeln. 
„Id“ enthält dann nach dem Aufruf von 
„Idsearch“ die ersten acht Buchstaben 
des gefundenen Bezeichners, die sogar 
schon in Großbuchstaben umgewandelt 
sind. Man könnte „Id“ also dazu benut- 
zen, um etwa mit der Funktion „tree- 
search” (siehe Pascal Language Referen- 
ce Manual, S. 49) den Bezeichner weiter 
zu untersuchen oder in einen Binärbaum 
einzufügen, um später ein sog. Cross- 
Reference-Listing von allen Bezeichnern 
zu bekommen. 


Das Programm 


Da das Programm möglichst kurz sein soll- 
te, wurde auf schnelle Ein/Ausgabe-Routi- 
nen verzichtet und statt dessen die einge- 
bauten Prozeduren „Readin“ und 
„Writeln“ benutzt, die allerdings bei Text- 
files nicht besonders schnell laufen. Wer 
möchte, kann an dieser Stelle noch Ver- 
besserungen anbringen. 

Die Abfrage nach Kommentaren und kon- 
stanten Zeichenketten ist komplizierter als 
die Bezeichnersuche selbst, die sich in 
wenigen Zeilen abhandeln läßt. 


Nach dem Starten des Programms werden 
zuerst Ein- und Ausgabe-Files erfragt. 
Laßt sich ein File nicht öffnen, wird das 
Programm verlassen. Danach kann man 
einen Präfix- und einen Suffix-String ein- 
geben. Diese Strings werden dem gefun- 
denen Pascal-Schlüsselwort voran- oder 
nachgestellt. Will man beispielsweise die 
Schlüsselwörter unterstrichen ausgeben, 
so gibt man für den Epson-Drucker als 
Präfix die Zeichenfolge <ESC> ‚-' ‚,1' und 
als Suffix <ESC> ‚-' ‚0‘ ein, für den Ima- 
gewriter <ESC> ‚X und <ESC> ‚Y'. 
schließlich kann man noch wählen, ob 
man eine Zeilennumerierung haben 
möchte. 
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IDSEARCH 


ey Pascal 4 


{$C von Dieter Geiß, 28-November-1984} 


{$R-} 


program FastlIdsearch (input, output); 


type Alpha = packed array [9..7] of char; 
MaxStr = string [255]; 
var Lines : Integer; 
Lnum : boolean; 
Comment : integer:; 
Comments : array [1..4] of string [?]; 
S : MaxStr; 
Pre ı string; 
Post ı string; 
Infile : interactive; 
Outfile : interactive; 


I —— 24 


procedure Init; 
var C : char; 


begin {Init} 


{$I-} 
page (output); 
Lines := #; 


writeln ('Schnelle Schlüsselwortsuche mit idsearch'); 
writeln ('von Dieter Geiß'); 


writeln; 


write ('Eingabefile: '); 


readln (5); 
openold (Infile, 
if IOresult <> 9 
begin 


Ss); {reset geht auch} 
then 


openold (Infile, concat (S, ',TEXT')): 


if IOresult <> 
end; {if} 


ß then exit (program) 


write ('"Ausgabefile: '); 


readln (S); 
ifS5S=''thenS 
opennew (Outfile 
if IOresult <> 
writeln; 


:= "CONSOLE: '; 
wis): {rewrite geht auch) 
then exit (progran); 


write (' Präfix-String: '); 


readln (Pre); 


write ('"Postfix-String: '); 


readln {Post); 


writeln; 
write ('Zeilennummerierung? '): 
read (C}; 
writeln; 
writeln; 
Lnum Se in 2), ZyS]lE 
Comment := ß; 
Comments [1] := '{'; 
Comments [2] := '{x*'; 
Comments [3] := '}'; 
Comments [4] := 'x)' 
{$I+} 
end: {Init} 
Im 1 
procedure Scanner (var S : Maxstr):; 
var SymCursor : integer; 
Sym : integer; 
Op : integer; 
Id : Alpha; 
OldCursor : integer; 
P : integer; 
begin {Scanner} 
SymCursor := 1 + scan {length (S), <> ' ',S [1]); 


if Comment <> ß then {Kommentar möglicherweise...) 


begin 


{-..in dieser Zeile zu Ende) 


P := pos (Comments [Comment + 2], S); 


if P <> ® then 
begin 
SymCursor := 
Comment = 
end {if} 
end; {if} 


P + length (Comments [Comment + 2]); 
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Übrigens gibt es noch weitere Prozedu- 
ren, die der Compiler erkennt und nir- 
gends beschrieben werden. Diese haben 
allerdings keine große Bedeutung. „Open- 
old“ beispielsweise ist nämlich gleichbe- 
deutend mit „Reset“, und „Opennew“ 
entspricht „Rewrite”. 

„Time (11, 12)“ füllt beim Apple beide Inte- 
ger-Zahlen I1 und I2 mit 0, weil keine Uhr 
vorhanden ist. Hätte man eine Uhr ange- 
schlossen, müßte man den P-Code-Inter- 
preter an der Stelle patchen, wo die 
Adresse der Standardprozedur „Time“ 
steht ($D112 und $D113 in der Bank 1). 
Übrigens hat „Segment“ den gleichen Id- 
Code wie „Program“. Man könnte also 
statt „Program Test“ auch „Segment 
Test“ schreiben, statt „Segment Proce- 


while (SymCursor <= length (S)) and (Comment = ß) do 


begin 
OldCursor := SymCursor; 
irss [syumcursor]| in AL. Zr, lat atz] 
then 
begin 
idsearch (SymCursor, S); 
if Sym <> ® then 
begin 
insert (Post, $, SymCursor + 1); 
insert (Pre, S, OldCursor}; 


SymCursor := SymCursor + length (Post) + length (Pre) 


end {if} 
end {if} 
else 
17 Ss leyncarsor | — "m {konstante Zeichenkette) 
then SymCursor := SymCursor +1 + 
scan (length (S) — SymCursor, = ''"!, 
else 
begin 
if S [SymCursor] = '{'! 
then Comment := 1 
else if pos ('{*»', S) = SymCursor then Comment : 


if Comment <> ® then 


S [SymCursor + 1]) 


Hi vi begin 
dure“ auch „Program Procedure“. P := pos (Comments [Comment + 2], S): 
if P > SymCursor then {Ende des Kommentars,.. 
2 Ä begin {(„.„.in gleicher Zeile} 
Im nächsten Teil soll der Frage nachge- SymCursor := P + length (Comments [Comment + 2]) - 1; 
gangen werden: Kann man den P-Code en —. 
nn dfı 
optimieren? ns } 
end; {else, else} 
SymGursor := SymCursor + 1 
end {while} 
end; {Scanner} 
[mm 
begin {FastIdsearch} 
Ente; 
while not eof (Infile) do 
begin 


fillchar (S, size_of (S}, Ö); 

readln (Infile, S); 

Scanner (SS); 

Lines := Lines +]; 

if Lnum then write (Qutfile, Lines : 5, 
writeln (Outfile, 5) 


1 2 


fm 
= end; {while} 


close (Infile); 
close (Outfile, lock) 
end {FastIdsearch}. 
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SUPERDUMP und Apple Ilc 


Das Programm Superdump aus Peeker 6/85, S. 22 läuft ohne Änderung nicht auf dem Apple Ilc. Die Ursache dieses Problems 
liegt nicht in einer Unzulänglichkeit des Programms, sondern in der eigenwilligen Konstruktion der seriellen Karte im Ilc (die 
Image-Writer-Toolkit-Diskette unter DOS 3.3 funktioniert ebenfalls nicht auf dem Ilc.). 

Bei der Übertragung eines Zeichens wird in einem Hardwareregister der Status des Druckers abgefragt. Ein gesetztes Bit 6 bei 
der Super Serial Card signalisiert die Bereitschaft des Druckers, ein neues Zeichen entgegenzunehmen. Dieses Register wurde 
beim Ilc geändert, so daß nun das Bit 5 diese Aufgabe übernimmt. 

Um das Programm auf den Apple Ilc anzupassen, muß die Routine zur seriellen Ausgabe geändert werden. Diesen Patch kann 
man von der Apple-Version abhängig machen, um das Programm auf den verschiedenen Rechnern starten zu können. 
Dazu muß folgende Zeile in das Applesoft-Programm SUPERDUMP.IMAGEWRITER eingefügt werden: 


1325 IF PEEK (64435) = 6 AND PEEK (64448) = 0 THEN POKE 34499 32 


Die beiden PEEK-Anweisungen fragen die sog. Machine-ID-Bytes ab, wodurch nur im Falle des Ilc das entsprechende Byte in 
der Ausgaberoutine geändert wird. 
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von Dr. Jürgen B. Kehrel 


94 assembler 4 


Assembler-Pseudo- 
Opcode-Referenztabelle 


Für den Apple Il gibt es rund ein Dutzend 
verschiedener Assembler. In ihren Stan- 
dardbefehlen halten sich fast alle an die 
Opcodes (= Operation Codes, Befehls- 
worte), die von dem ersten Hersteller des 
6502-Prozessors, MOS Technology Inc., 
eingeführt wurden. Ein guter Assembler 
verfügt darüber hinaus noch über eine An- 
zahl von sogenannien Pseudo-Opcoades, 
die nicht zur Steuerung des 6502 dienen, 
sondern vielmehr Befehle für den Assem- 
bler selber darstellen. Diese sind nicht ge- 
normt, so daß eine direkte Übertragung 
auf einen anderen Assembler meistens 
nicht möglich ist, auch wenn viele Ähnlich- 
keiten vorliegen. Im Peeker sollen bevor- 
zugt Listings im Big-Mac- oder Merlin- 
Format veröffentlicht werden, was die an- 
deren Assembler natürlich nicht aus- 
schließt. 








Um Ihnen eine Hilfe zur Übertragung von 
fremden Pseudo-Opcodes auf Ihr eigenes 
System zu geben, sind nachfolgend die 
Befehlsworte der fünf gebräuchlichsten 
Assembler einander gegenübergestellt. 
Halbfett gedruckt finden Sie in alphabeti- 
scher Reihenfolge die Liste der Big-Mac- 
bzw. Lisa-2.5-Befehle und ihre Enitspre- 
chungen bei den übrigen Assemblern. Ist 
ein Code eingeklammert, dient er nur un- 
ter speziellen Bedingungen als Ersatz. Ein 
Strich in einer Rubrik bedeutet, daß der 
entsprechende Befehl nicht vorhanden ist. 
Das schließt aber nicht aus, daß Sie über 
einen Umweg nicht auch zum selben Er- 
gebnis kommen können. Alle Angaben 
geschehen nach bestem Wissen, aber oh- 
ne Gewähr, denn ich arbeite natürlich nicht 
mit all diesen Assemblern. 


Tabelle siehe nächste Seite 


ProDOS-Analyse 


Version 1.0.1, 1.0.2, 1.1.1 


Arne Schäpers 


1985, ca. 450 S., kart., 
DM 68,- 
ISBN 3-7785-1134-3 


Dr. Alfred Hüthig Verlag 
6900 Heidelberg - Postfach 10 28 60 
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„Die ProDOS Analyse“ ist die 
umfangreichste und detaillier- 
teste Darstellung, die jemals 
ein Apple-Betriebssystem er- 
fahren hat. Wer die „Innerei- 
en“ von ProDOS bis zum letz- 
ten Byte, z. T. bis ins letzte Bit 
kennenlernen möchte, braucht 
dieses Buch. Das komplette 
Betriebssystem (Urlader, MLI, 
Disk-Driver, RAM-Disk-Driver 
und Uhr-Routine) mit Ausnah- 
me des BASIC-SYSTEM wird 
mit umfangreichen Kommenta- 
ren und Übersichtstabellen dis- 
assembliert. Dabei werden alle 
bisherigen Versionen von 
1.0.1 bis 1.1.1 berücksichtigt. 
„Die ProDOS Analyse“ be- 
schreibt erstmals auch mehre- 
re Programmiierfehler, die bis 


in die neueste Version zu fin- 
den sind. Auch die nicht im 
„Technical Reference Manual“ 
aufgeführten Eigenschaften 
von ProDOS werden analysiert 
und beschrieben, z. B. die ver- 
trackten eingebauten Testrou- 
tinen zur Identifikation der ver- 
schiedenen Apple II Modelle 
und eventueller Nachbaugerä- 
te. Programmierer, die Pro- 
DOS versionsabhängig „pat- 
chen” möchten, ‚erhalten hier 
den genauen Überblick, wo 
was geändert werden muß, da- 
mit dies keine negativen Kon- 
sequenzen hat. Durch die mi- 
nutiöse theoretische Sezie- 
rung von ProDOS eröffnen 
sich völlig neue programmier- 
praktische Perspektiven. 
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PAU 


PCM/>>> 
PUT 
SAV 
SKP 


TRON 


= 


#Adresse 
+#<AÄdresse 
+#>Adresse 

#/Adresse 


Merlin 


DDB 
DFB 
(DS) 
ELSE 
END 
EOM/<<< 
EQU 
FOL 
EXP ON 
FIN 
FLS 
TROFF 
DA#+> 


PAU 


PCM/>>> 
PUT 
SAV 
SKP 


TRON 
USR 
VAR 


ERR 
LUP 


+#Ädresse 


+#<Ädresse 
#>Adresse 


+#/ÄAdresse 


Lisa 2.5 


ADR 
ASC 
BLK 
BGE 
BLT 
BYT 
ADR 
DBY 
DO 
DCM 


DBY 
(HBY/BYT) 


+#+Adresse 


_— 


/Adresse 


++>Adresse! 
+#<Adressel 


Toolkit S-G Macro 


DW 
ASC 
(REP/CHR) 


BGE 
BLT 
DB 
DW 

DDB 

(DCI) 


DDB 
DFB 
(DS) 
ELSE 
END 
EQU 
EQU 


FIN 


DW#> 
HEX 
CHN 

DO 


‚LISTON 
‚MA 
‚LIST OFF 


LSTON 
LST OFF 
OBJ OB) 
ORG ORG 
PAGE RG 


- unnötig 
CHN 


CHR 
DEND 
SECT 

ENTRY 
EXTRN 
MSB ON 
MSB OFF 
REL 
REP 
+#AÄdresse #Adresse 
#<AÄdresse 
#>Adresse 
#/Adresse 





Anmerkung 


2-Byte-Adresse / Ausdruck Lo-Hi 
ASCII-String (“ = Bit 7 gesetzt) 
Drucke Anzahl Sternchen 
FLASH-ASCII-String 

= BCS 

= BCC 

Adresse / Ausdruck nur Lo-Byte 
Kontrollzahl (Checksum) 
2-Byte-Adresse / Ausdruck Lo-Hi 
2-Byte-Adresse / Ausdruck Hi-Lo 
ASCII-String, letztes Bit inverliert 
Führe DOS-Befehl aus 
2-Byte-Adresse / Ausdruck Hi-Lo 
Definiere Byte 

Reserviere Speicher 

Bedingte Assemblierung ELSE 
Programmende 

Ende einer Macrodefinition 

Lisa: Zero-Page-Label 1 Byte 
Label 1 oder 2 Byte (Lisa 2 Bytes) 
Drucke Macros aus 

Bedingte Assemblierung Ende 
FLASH-ASCII-String 

Liste alle Bytes pro Zeile 
Adresse / Ausdruck nur Hi-Byte 
1-Byte Hexadezimalwert 
Verkette Quellcodefiles 

Bedingte Assemblierung Anfang 
INVERSE-ASCII-String 

Label Neudefinition 

Labeleingabe über Tastatur 
Listing anschalten 

Beginn Macrodefinition 

Listing ausschalten 

Listet nur 3 Bytes pro Zeile 
Aktuelle Objekt-Code Adresse 
Adresse für ablauffähigen Code 
Sende Cirl-L (neue Seite) 

Pause, Abbruch 

Neuer ORG, ohne OB)J zu ändern 
Macroaufruf 

Verkettung von Quellcode-Files 
Automat. Obj.-Code Abspeicherung 
Sende Zeilenvorschub 
ASCIHI-String mit Längenbyte 
Liste nur 3 Bytes pro Zeile 

Titel auf jeder Ausdruckseite 
Benutzerdefinierbarer Befehl 
Labeldefinition in Macros 
Fehlermeldung, wenn Ausdruck <> O 
Schleifenanfang 

Schleifenende 

Wie ASC, nur String rückwärts 
Definiere Byte für REP 
Dummyfteil Ende 

Dummyfteil Anfang 

Globales Label (unbenutzt) 
Externes Label (unbenutzt) 

Setzt Bit 7 in Strings 

Löscht Bit 7 in Strings 
Verschiebbarer Code für RLOAD 
Druckt CHR mehrmals 

Lo-Byte eines 2-Byte-Ausdrucks 
Lo-Byte eines 2-Byte-Ausdrucks 
Hi-Byte eines 2-Byte-Ausdrucks 
Hi-Byte eines 2-Byte-Ausdrucks 
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494999 2992999 DEEKER 44 


| AUFTRAG FÜR KLEINANZEIGEN 
Pe = 
Börse 





Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[] suche Hardware L] suche Software 2) Tausch D] Verschiedenes 
[| biete Hardware [] biete Software [1] Kontakte [1 Chiffre 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 


77999 p° MAGAZIN FÜR APPLE-COMPUTER 


‚Sete________ erschienenen 





peeker-Börse 















Gelegenheitsanzeigen 





Sie können unter dieser 

Rubrik zu einem besonders 

günstigen Preis 

@ Ihre Hardware und 
Software verkaufen 

@ Ihre Hard- und Software 
suchen 

@ Kontakte knüpfen und 
vieles mehr 











Zu der in »peeker«, Heft 
L] Anzeige [| Produktbesprechung 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 


über 


bitte ich um detaillierte Information. 
Ich wünsche L] Prospekt, Datenblatt U Preisliste [| schriftliches Angebot I] tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Beispiel: 











Unterschrift {für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Musteranzeige gewerblich 





Die einspaltige Millimeter- 
zeile (42 mm breit) kostet 
9,50 zuzügl. ges. MwSt. 


299999 PEEKER 94 


MAGAZIN FÜR APPLE-COMPUTER 


Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 


Beispiel: Aufsätzen in »peeker« haben: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 


Plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 
Fa. Keyboard & Co. 





nur DM 137,94 inkl. MwSt. 








FED 
Produkt: 
Karte 


Anzeigen-Service Wünschen Sie 
weitere Informationer 


ANTWORTKARTE 








stehenden Text von____Zeilen 


DM in der nächsterreich- Dr. Alfred Hüthig Verlag | 
aren Ausgabe von »peeker« zu einem der im Heft 
—— Postfach 10 2869 vorgestellten 
6900 Heidelberg 1 Produkte ? 
Untergehein Nichts einfacher als 
das. 


Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


POSTKARTE Vorher aber nicht 
vergessen: 
kreuzen Sie an, 
welchen Informations 
Firme wunsch Sie haben. 


Damit erleichtern Sie 

dem Hersteller 

eine gezielte Beant- 
nm — wortung Ihrer Anfragı 


Straße 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Hersteller: 
und Ihre vollständige 
Firmenanschrift ein. 





POSTKARTE 


Vorname, Name 


Firma 


peeker 


® 

5 

z 

BE „=, „7 EBEEE 

c | Redaktion 


Straße Postfach 10 2869 
az ZZ 6900 Heidelberg 1 





EEKER 


MAGAZIN FÜR APPLE-COMPUTE| 


Telefon mit Vorwahl 








| Verkauf Hardware 


Apple - DOT - Matrix - Drucker 
mit Parallel-Interface-Karte (Apple) 
VHB DM 1600,- 
H. Bösing, Erienweg 8, 2872 Hude 2, 
Tel. 044 84/746 


APPLE comp. (6 Mon. Garan- 
tie. Neugerät), mit 64 K, 6502 u. 
Z80 CPU im IBM-Gehäuse, sepa- 
rater Tastatur, 80 Zeichen Disk- 
contr., 1 Laufw. 160 K, DM 1950, — 
Monitor bernst. DM 280,- Tel. 
06897/6903 


APPLE-Komp. + Cards zu Su- 
perpreisen! Ab DM 65,00! Liste von: 
RTE Software/TREIBER GmbH 
7546 Enzklösterle 


Verk. APPLE 
0.94 09/933 


lic + Zub. 


Org. APPLE Disk-Driver, 2 
Stück mit Controler 900 DM. 
PREH-Commander Tastatur 150 
DM. Tel. 0241/83661 


Neuwertig (3 Wochen im Einsatz) 
zu verkaufen: 2 corvus harddisc 
ä6 MB sowie 1 disc-server. 
Rückfragen bitte an Fa. Vitra, Hr. 
Dr. Treffert, Tel. 07621/702311 


Verkaufe TEAC-Doppellauf- 
werk 2 x 640 KB mit R-PHI Con- 
troler. Beide ungebraucht VB: 
1650,- DM, Tel. 0931/41 3258 





Den 


Fernschreiberinterface am 
Gameport m. Programm DM 79,— 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


BROSE 120 (csc)-Tastatur / 
22 MHz Monitor (NEC) Sonder- 
preise |!!! Rüter, Hille 0 57 03/672 


Verkauf Software 


APPLE Il: ’GIANT WORLD’ ist 
da!! x Das neu Top-Adventure mit x 
x Spitzengrafik für riesigen x 
* Spielspaß! Es lohnt sich! x 
Für nur 89,-— DM Vorkasse o.NN 
bei #»x* FANTASTICG-Software #x#+ 
xx Grasweg 7, 2857 Langen 3 xx 


—- — - STOCKMASTER II — - — 
Das Apple-Programm für echte Bör- 
sengewinne. Nur 485,- DM, 
Töngi, Computer-Praxis, Aspeltstr. 4, 
D-6500 Mainz 1. 


APPLE Il emuliert SHARP- 
POCKETC. Dat./Prg. ü. Game/ 
11 Pin-C. Inf. geg. 2 x 0,80 DM in 
Bfm. Klaus Schmidt, Hasenclever- 
str. 25, 2000 Hamburg 74 


fig-FORTH —— DM 15,00 
Assemblerlisting f. APPLE DM 15,—, 
FORTH auf Disk f. APPLE DM 45,— 
Info kostenlos —— C. Schmidt, 
Rungestr. 8, 3500 Kassel 


== RUND 


Büroelektronik 


Keithstr. 26 : 1 Berlin 30 : ® 0 30-26 111 26 


KER 


Börse 


Verkaufe für Apple IHle/llc 
Originalprogramm Applevorks’, 
Neueste Version (1.2.), VB 500 DM, 
Tel. 0221/779329. 


Ankauf Software 


Für Il-e (Il-c) Programm gesucht 
das Daten auf Diskette bearbeitet 
Tel. 0561/498343 od. /804 4838 


KKHRRHKFKFKKKFRFRKFRHT KH FH FH FF FF HN 


lle-Neuling sucht Programme 
aller Art. Liste bitte an Chiffre 
P 1003 


Verschiedenes 


APPLE REPARATUREN 

(auch compatible M-boards, z.B. 
Atlas, Arca, GES, Datastar, 
Dipa, Lasar, Mewa, PC-48+ 
46, Plato, Radix, 0. ae. So- 
wie Zusatzkarten und Disk- 
Drives) führt unser Spezialteam 
mit mehr als 5-jähriger Kunden- 
und Reparatur-Dienst-Erfahrung, 
garantiert zuverlässig und beson- 
ders kostengünstig aus. Bitte ge- 
naue Fehlerangabe sowie Tel.-Nr. 
für evil. Rückfragen nicht ver- 
gessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/27 6864, 

Tx. 772642 aaa d 





IYYIIY 


KERFRKHFRRRRTRRTRTR 


Floppysubsystem 
für Apple II 


2 x 3,5° TEAC FD-35F 
max.2x 1IMB 
Autopatch-Gontroller 
inkl, Manual und SW 
ALU-Profil-Gehäuse m. Netzt. 
komplatt anschlußfertig 
nur DM 2398,- 


KRRRKKKRRRERRRKR 
Telekommunikation 


Anschlußkabel 
Dataphon S21d 
Terminalsoftware 
komplett anschlußfertig 
nur DM 398,— 


KRRFKRFFRKRRFRRRR 


TISCH & ZETTL GdbR 
Elektronicvertrieb 
Rosenstr. 33, 8034 Germering 
Telefon 089/841 6817 


KHK NER 


FERRFIHFHTRT 


IERICIEEREKEK 


MC 3470 (der Leseverstärker auf 
dem Analogboard): DM 10,-, A. 
Deckers, PF 967, 7 Stuttgart 1 


Erscheinungstermin für 


Ausgabe 9/85 
ist am 26. 8. 1985 





Epson Interfaceumbau 
f. AWorks DM 20. Mahr, Waldak- 
ker 71, 7300 Esslingen 


Lieber ’ROBO’ bitte meiden. 
Manfr. Rost, Düsseldorf, Suitber- 
tusstr. 99 


-= RUNDIU 


== Biüroelektronik GmbH 
Bachstr. 104 : 2 HH 76 : ®& 0 40-220 1155 


Für weitere Informationen zu einem der in dieser Ausgabe vorgestellten 
Produkte stehen Ihnen die Produktkarten zur Verfügung 


Bitte verwenden Sie für Kleinanzeigen die vorgedruckten Antworitkarten in 
diesem Heft. 
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von Roland und Manfred Fietkau 


„Sie nimpt viel Koppfs" 
Adam Ries (1492-1559) 


In der Kombinatorik und Wahrscheinlich- 
Keitsrechnung spielen Fakultäten eine 
wichtige Rolle. Der Ausdruck N! (N-Fakul- 
tat) bedeutet: 12:3... (N-1) N. N ist 
dabei eine positive natürliche Zahl. Zu- 
sätzlich muß definiert werden: 0! = 1. 


Fakultäten lassen sich im Prinzip sehr 
leicht berechnen; bereits eine einfache 
Applesoft-Zeile genügt: 


IF = 12 INEUTTEakültakvon N: 
FORIEIITON:ErR SF Hl NEXT: 
PRINT FE 


Schon nach einigen Versuchen wird man 
jedoch an die Grenzen dieses einfachen 
Verfahrens stoßen. Zwar werden die Wer- 
te von O! bis 12! noch exakt berechnet, 
doch ab 13! liefert Applesoft nur noch 
Näherungswerte. Der Grund liegt darin, 
daß Mantisse und Exponent einer FP-Va- 
riablen nur 32 Bits umfassen. Konsequen- 
terweise bricht das Applesoft-Programm 
auch ab 34! mit einem Overflow-Error ab. 
Um auch höhere Fakultäten stellengenau 
berechnen zu können, muß man sich also 
einer anderen Methode bedienen. Mit 
(viell) Papier und Bleistift ist die Berech- 
nung leicht möglich: Man denke daran, 
daß vor der Entwicklung des Chips ganze 
Tabellen „zu Fuß“ berechnet wurden. 
Genau das ist die Methode, die auch das 
Assembler-Programm FAKULTAET be- 
nutzt, 


Das Verfahren 


Das Programm wertet den numerischen 
Ausdruck nach „&” aus und überträgt Ihn 
nach $0000 und $0001. 

Um zeitaufwendiges Umrechnen (hex in 
dezimal) zu vermeiden, werden alle Be- 
rechnungen im Dezimalmodus (BCD- 
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Fakultäten 





Arithmetik) durchgeführt. Das bedeutet, 
daß der zu berechnende Ausdruck nicht 
größer als 9999 sein darf (9999! ist bereits 
eine Zahl mit über 35 000 Stellen). 

Die zu berechnende Fakultät wird zu- 
nächst auf 1 initialisiert und dann fortlau- 
fend mit den Zahlen von 1 bis N multipli- 
ziert. Da eine Multiplikationsroutine jedoch 
sehr zeitaufwendig ist, legt sich das Pro- 
gramm durch Aufaddieren eine Tabelle an, 
in der alle Multiplikationsergebnisse von O 
: N bis 99 - N eingetragen werden. Eine 
einfache Überlegung zeigt, daß dafür 
höchstens 3 Bytes pro Tabellenelement 
benötigt werden. Die aktuelle Doppelziffer 
(2 BCD-Stellen = 1 Byte) der Fakultät wird 
als Pointer auf die erstellte Multiplikations- 
tabelle benutzt. Das niederwertige Byte 
(LL) wird direkt in die Fakultät eingetragen, 
das mittlere (MM) und höchstwertige Byte 
(HH) werden als Überlauf „gemerkt" und 
bei der Berechnung der nächsten Doppel- 
zitffer berücksichtigt. Das ist im Prinzip die 
Methode der schriftlichen Multiplikation, 
nur daß die Berechnungen mit jeweils 
zwei Stellen durchgeführt werden. Wer die 
Multiplikationstabelle (0..99 - 0..99) aus- 
wendig kennt, kann diese Methode auch 
beim schriftlichen Rechnen benutzen. Er 
muß dazu nur zwei Überträge berücksich- 
tigen. 

Wenn der Kopf (das höchstwertige Byte) 
der Fakultät erreicht ist, werden die Über- 
träge vorangestellt, und der Pointer wird 
entsprechend erhöht. 

Dieses Verfahren wird so lange wieder- 
holt, bis N erreicht ist. Danach erfolgt der 
Rücksprung zu Applesoft. 


Benutzung des Programms 


Der Befehl „&P“ bewirkt den Ausdruck der 
berechneten Fakultät auf dem Bildschirm 
über die Monitor-Routinen PRBYTE und 
PRHEX. Die Ausgabe kann durch Drücken 


einer beliebigen Taste unterbrochen und 
nach erneutem Tastendruck fortgesetzt 
werden. 


Nach Eingabe von „&N” (N = Next) wird 
die nächsthöhere Fakultät berechnet. 

Will man die numerische Eingabe über 
eine Variable vornehmen, so sollte der 
Variablenname nicht mit „P” oder „N“ 
beginnen, da dann direkt in die PRINT- 
oder NEXT-Routine gesprungen wird. Der 
numerische Ausdruck nach „&“ muß po- 
sitiv sein und im Bereich 0..9999 liegen. 
Der Bereich ab $2000 für die berechnete 
Fakultät erlaubt es, den Vorgang der Be- 
rechnung über HGR mitzuverfolgen. Deut- 
lich ist zu sehen, wie die Fakultät sehr 
schnell größer wird, während am Ende ein 
immer länger werdender Schwanz von 
Endnullen mitgeschleppt wird. 


Ein kleines Applesoft-Programm berech- 
net die Anzahl der Endnulien einer Fa- 
Kultät: 


10 INPUT UN! ";N:X=N 
20 1 = INT (X/5) 


sesuy=sUF| 
AGIEl = SS TTIENDC EEE T9 25 
SPRINT Endnulen vom N: >= SU 


Die Anzahl der Stellen einer Fakultät kann 
man durch Addition der dekadischen Lo- 
garithmen von 1 bis N ermitteln: 


10 INPUT “N! “:N 

20 KO =1/LOG (10) 

SO FORI=1TON 
40SL=SL+LOG (I) KO 

50 NEXT 

60 PRINT “Stellenzahl: “; INT(SL+1) 


Soll das Assembler-Programm von einem 
Applesoft-Programm aus benutzt werden, 
sollten HIMEM auf 9 x 4096 und LOMEM 
auf 6 & 4096 + 6 # 256 gesetzt werden, da 
FAKULTAET den Bereich $9000 bis 
$91FF belegt und die Multiplikationstabel- 
len bei $9200 bis $94FF ablegt. Bei einem 
nicht allzulangen Applesoft-Programm 
(Programmende höchstens $1FFF) sollte 
genügend Platz für die Variablen vorhan- 
den sein, Der Ampersand-Vektor muß 
vom Monitor aus (3F6: 00 90) oder von 
Applesoft durch 

POKE 1014,0: POKE 1015,144 

initialisiert werden. 

Das Applesoft-Programm FAKULTAET.- 
DEMO zeigt ein Beispiel zur Benutzung 
der Fakultät-Routine. 
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OOo AuNDH 


Fe nun 
ze 


ji deren 


“Eihinianieenierenunkunkzaaienizaaianaznienennenrenenne 


Fakultäten 9. .9999 


“ 

* 

* 

* Roland Fietkau 
* Manfred Fietkau 
* April 1985 

* 


urn 


ORG $99%99 
+ 
* FAC -> String 
FOUT EQU $ED34 
+ numerischen Ausdruck auswerten 
FRMNUM EQU $DD67 
* linkes Nibble drucken 
PRHEX EQU $FDE3 
* Byte drucken 
PRBYTE EQU $FDDA 
HOME EQU S$FC58 
+ Character Output 
COUT EQU S$FDED 
CHRGET EQU $B6Bl 
KEY EQU SCAdd 
STROBE EQU $C019 
* Low-Byte der berechneten Fakultät 
FAK EQU $2999 
* 
# ABCD! Low/high (dezimal) 
NLO EQU $89 
NHI EQU $81 
* Pointer zum hochzählen 
GEH EQU $P2 
CHI EQU $93 
* Pointer auf Fakultätsende 
PEND EQU %94 
* Überlauf low/high 
ULO EQU $Bs6 
UHI EQU $87 
PCOUNT EQU $FE 
$ 


* Multiplikationstabellen 
MULTLO EQU $9299 
MULTMI EQU $930® 
MULTHI EQU 89498 


* 
ee DE De Dr pr Sn 222 222 22 22022225 
* 
CMPUO #'N' 
* 
* Nächste Fakultät berechnen 
BEQ NEXTFAK 
CMP #'P! 
Fakultät ausgeben 
BEQ DOPRINT 


Numerischen Ausdruck bei TATPTR 

in FAC übertragen und durch 

FOUT in String bei $199.. umwandeln 
String dezimal in $69/$#1 


JSR FRMNUM 
JSR FOUT 
LDX #8 

LDA $199,X 
BEQ A2 

INX 

JMP Al 

JSR FLOAT 
STA NLO 
JSR FLOAT 
ASL 

ASL 

ASL 

ASL 








STA 
JMP 


DEX 
BMI 
LDA 
SEC 
SsBC 
RTS 
Fl LDA 
RTS 
* 
DOPRINT JSR 
JMP 
NEXTFAK LDA 
STA 
LDA 
STA 
SED 
LDA 
STA 
CLC 
ADC 
STA 
LDA 
STA 
ADC 
STA 
CLD 
JSR 
ALLDONE JSR 
RTS 


bler 44 


Pl 
$189,X% 


+$39 
+0 


PRINT 
ALLDONE 
HOLDPLO 
PEND 
HOLDPHI 
PEND+1 


NLO 
ELO 


+1 
NLO 
NHI 
CHI 
#9 

NHI 


STO 
CHRGET 


* 
# Aktuelle Doppelziffer 

x von FAK wird von 1 bis 99 
* 

* 


aufaddiert 


und in 


MULTLO/MI/HI übertragen 


MULTTAB LDX 
STX 
LDA 
STA 
STA 
STA 
SED 
CLC 
LDA 
ADC 
STA 
STA 
LDA 
ADC 
STA 
STA 
LDA 
ADC 
STA 
STA 
LDA 
ADC 
BCS 
STA 
TAX 
JMP 

TABDONE CLD 
RTS 


* 

COUNT HEX 
HOLDLO HEX 
HOLDMI HEX 
HOLDHI HEX 
HOLDPLO HEX 
HOLDFHI HEX 
* 


#1 
COUNT 
+9 
HOLDLO 
HOLDMI 
HOLDHIL 


HOLDLO 
CLO 
HOLDLO 
MULTLO,X 
HOLDMI 
CHI 
HOLDMI 
MULTMI,X 
HOLDHI 
+ 
HOLDHI 
MULTHI,X 
COUNT 

#] 
TABDONE 
COUNT 


* Initialisierung 


* 

COMP LDA 
STA 
STA 
STA 
STA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
STA 





+0 
MULTLO 
MULTHI 
MULTMI 
CHI 
PEND 
#>FAK 
PEND+1 
#0 

#1 
(PEND),Y 
CLO 


57 


58 


JSR 
BCG 
LDA 
STA 
LDA 
5STA 
RTS 
JSR 
JMP 

+ 

* Testen, ob 


TEST 
STl 
PEND 
HOLDPLO 
PEND+1 
HOLDPHI 


DOMULT 
STE 


Pointer CLO/CHI 


* auf NLO/NHI hochgezählt ist 


* 
TEST LDA 
CMP 
BCC 
LDA 
CMP 
BCC 
SEC 
RTS 
NOTYET SED 
LDA 
CLC 


* 
DOMULT 


ADC 
STA 
LDA 
ADC 
STA 
CLD 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
BNE 
LDA 
BNE 
RTS 


CHI 
NHI 
NOTYET 
CLO 
NLO 
NOTYET 


+ 
PCOUNT 
#>FAK 
PCOUNT+1 
MULTTAB 
+D 

ULO 

UHI 


IPCOUNT) ,Y 


MULTLO,X 
ULO 
[PCOUNT} ,Y 
MULTMI,X 
UHI 

ULO 
MULTHI,X 
2’) 

UHI 


PCOUNT 
PEND 
WEITER 
PCOUNT+1 
PEND+1 
WEITER 
URI 
STEPZ 
ULO 
STEP1 


Pcinter auf Fakultätsende 
um l erhöhen 


TEP1 JSR 
LDA 
STA 
RTS 

* 

* Pointer um 

* 

STEP2 JSR 
JSR 
LDA 
STA 
RTS 

* 

WEITER ING 
BNE 
INC 


INCPEND 
ULO 
[PEND),Y 


2 erhöhen 


STEP1 
INCPEND 
UHLI 
(PEND),Y 


PCOUNT 
WEl 
PCOUNT+L1 
DMl 


919B: 
919E: 
91AB: 
91A3: 
9146: 
91A8: 
91AB: 


91lAC: 
SlAE: 
91BB: 
91B2: 
O1B4: 
91B6: 
91B7: 
91B8: 
91IBA: 
91BC: 
91BD: 
9IBF: 
91C9: 
91C2: 
9104: 
91C6: 
91CB: 
9lCA: 


OlCB: 
91CE: 
91D$: 
91D3: 
91D5: 
91D8: 
91DA: 
91DD: 
9IDF: 
91E2: 
9lE4: 
9lET: 
91E9: 
9lEC: 
9lEE: 
9lFß: 
91F3: 
91F5: 
91F8: 
OlF9: 
SIFB: 
SIFD: 
SIFF: 


ol2 Bytes 


INCPEND INC 
BNE 
ING 

IN1 RTS 

* 

KERKHrEHKH 

%* 

* Ausgabe au 

* oder Print 

& 

PRINT JSR 
LDA 
STA 
LDA 
STA 
LDY 
JSR 
LDA 
CMP 
BCS 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JMP 


PEND 
INI 
PEND+1 


FH EHE 


f Bildschirm 
er 


KOPF 
HOLDPLO 
PCOUNT 
HOLDPHI 
PCOUNT+1 
+0 

HOME 
{PCOUNT).,Y 
#519 

PPl 

PRHEX 
DECCOUNT 
{PCOUNT) ,Y 
PRBYTE 
DECCOUNT 
WAIT 

FRI 


Tastendruck unterbricht den 


Ausdruck, 
druck setz 


AIT BT] 

BPL 

BIT 

BIT 

BPL 

BIT 

WAZ RTS 
* 

DECCOUNT LDA 

BNE 

LDA 

CMP 

BNE 

PLA 

PLA 

LDA 

STA 

RTS 

LDA 

SEC 

SBC 

STA 

LDA 

SBC 


erneuter Tasten- 
t ihn fort 


KEY 
WA2 
STROBE 
KEY 
WAl 
STROBE 


PCOUNT 
DECI 
PCOUNT+1 
#>FAK 
DECI 


1) 
$22 


PCOUNT 


#1 
PCOUNT 
PCOUNT+1 
+9 
PCOUNT+1 


HOME 
NHI 
PRBYTE 
NLO 
PRBEYTE 
+5AQ 
COUT 
N ] u 
COUT 
#$Ag 
COUT 
Et —tE 
GOUT 
+39 
#$8D 
CouT 
gh_u 
COUT 


Kl 
#4 
$22 





Peeker 8/85 





| 


| N 


FAKULTAET.DEMO 


108 REM FAKULTAET.DEMO 

118 

128 REM 

13% PRINT CHR$ (4)"BLOAD FAKULTAET" 
POKE 1813,76: POKE 114,9: POKE 1#15, 144: 
REM 3F5: AC d8 S0 = JMP $9000 
A= 12 x 496 + 5 = 16: REM $Cd5ß 
HIMEM: 9 * 4996 
HGR : TEXT 
HOME : PRINT "G)rafik "; 
IF G THEN INVERSE : PRINT "EIN";: 
: GOTO 218 
PRINT "EIN/";: 


NORMAL : PRINT "/AUS" 


INVERSE : PRINT "AUS": NORMAL 


PRINT "Fjakultät berechnen" 
PRINT "N)ächste Fak, berechnen" 
PRINT "Ausgabe Bildschirm" 


PRINT "E)nde" 

PRINT : 

PRINT 

IF T$ G = NOT G: GOTO 18% 

IF T$ THEN INPUT "Fakultät von: ";FA: GOTO 338 

IF T$ THEN 390 

"AN THEN & P: GOTO 379 
= "Et THEN END 

PRINT CHR$ (7);: GOTO 189% 

IF G THEN POKE A,®: POKE A + 4,6: POKE A + 7.9 

& FA 

IF G THEN PRINT CHR$ (7); CHR$ (7); 

GOTO 18 

PRINT : PRINT " 

PRINT "<Taste>";: GET T$: GOTO 18% 

IF G THEN POKE A,®: POKE A + 4,6: POKE A + 7,8 
AB EN 
Aald GOTO 359 


: GET T$: TEXT 





g=MICROMINT 


TUCROMUNGT 
LLTREFFER 


LASAR 16 
IBM 256 K, 2 x TEACBFDD, Contr. 
color Graphik, Multifunktionscard, 


Nomeiısn 4.6785 
LASAR ZE 


— Apple comp. 64K + 
12 K ROM + 


— 










ee 





rt 
SE 


U ERERHEEEEEE 
Mn 


en 1 290; | 


Außerdem volles Rückgaberecht innerhalb 
14 Tagen ohne Begründung. 


Apple | IBM 





® Mehrzweckklappgehäuse lt. Abb. 147,— | 147,— 
® Schaltnetzteile Apple5 A/IBM 15A 115,-— | 238,— 
@ Profitastatur dtsch. LASAR 2000 291 ,— | 291,— 
@ Interface ab 75,— | 148,— 
@ Monitor 22 Mhz incl. Fuß, bernstein 289,— | 289,— 


Kaufgarantie/Tiefstpreisgarantie/1A Qualität: 100 % kompatibel inkl. Systemsoftware 

Made by Micromint: Apple Il 495,—, Apple lle 695,-, IBM 895,- Fertigplatinen. Tragbare 

Gehäuse für 7-Zoll/9-Zoll-Monitore 595,- DM inkl. Tastaturen. Winchester 27 MB auf 
Anfrage 1A First Class Controller bis 140 MB 935,— DM. 


Generalimporteur MICROMINT Computer GmbH 
Hochdahler Straße 151, 4006 Erkrath 2 
Telex 8589305 mem 


= 02104/330 24 
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Ein Beispielausdruck: 


206! = 7886578673647905#35523632139321850622951359776871732 
632947425332443594499634933429203504284911984623904177212138 
91963883025764279024263710506192662495282993111346285727076 
33172373969889439224456214516642492540332918641312274282948 
53277524242407573903249321257495579568669226031994170324962 
35170085879617892222278962370389737472B0 0 BBBHBHHHnBBRDHHDR 
BRDDRDDDDDDDDDDDDNDDDDARDDRN 


al ORG $B388 

2 + 

3 * Einfaches Dezimalmodus- 

4 * Additionsbeispiel/US 

5 * 

6 * 199 + 1 = 288 

7 * 
300: Bl 99 8 SUMMANDI HEX #199 
d3B2: Bd 1 9 SUMMAND2 HEX #081 
8304: BO DB 16 SUMME HEX B00B :820% 
a3ß6: FB ıl SED 
367: 18 12 eLe 
A308: AD d1 63 13 LDA SUMMANDI+1 
As0B: 6D 63 d3 14 ADC SUMMAND2+1 
ÖsS0E: 8D #5 83 15 STA SUMME+L 
#311: AD dB 83 16 LDA SUMMANDL 
A314: 6D B2 83 17 ADC SUMMAND2 
#317: 8D BA 83 18 STA SUMME 
®31A: DB 19 CLD 
A31B: 68 28 RTS 
28 Bytes 


datentechnik 


640 KByte-Drives für den Apple //c!! 


@ 51/4- od. 31/-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 35/40 Track 

@ Anschluß an die externe Laufwerkbuchse 

® Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 

@ Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

® Anpassung von CGP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 


® anschlußfertig im Gehäuse DM 1090,— 


Festplatten für Anpis Il (//e) 


@ 5'/ Zoll-Format (Slimline) 

@ Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 /3.0 

® Gemischtbetr. mit 35/40/80/160 Track-Drives 

@ Copy- und Install-Programme im Lieferumfang 

@ Umfangreiches Manual 

® z.B. 12 MB form. incl. Netzteil u. Contr., 


anschlußfertig an Ihren Apple DM 3835,— 


640 KByte-Drives für Apple II (//e) 


@ 5'4- od. 3172-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 40 Track (Apple kompatible) 

@ Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

® Umfangreiches Handbuch 

® Anschlußfertige Auslieferung incl. Contr. und 2 Drives 

® Diskstation 55ll (2 Teac FD55-F, 1.2 MB) DM 1598,— 

® Diskstation 3511 (2 Teac FD35-F, 1.2 MB) DM 1580,— 


80 Zeichen + 64 K für Apple //e 


@® und jetzt hinsetzen . DM 158,— 


Alles für Ihren Apple 


Info bei: 


ccp-datentechnik 


Herderstraße 12 — 2000 Hamburg 76 
Telefon 040/225676 
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7. GRAFIK BEIM MS-BASIC 


Da beim Macintosh die Grafik eine sehr 
große Rolle spielt, erwartet man auch vom 
Microsoft Basic relativ komfortable und lei- 
stungsfähige Grafik-Befehle. 

Dies ist leider nicht der Fall. Das Basic 
bietet - im Vergleich zu den Möglichkeiten 
des Mac — nur sehr wenige Grafik-Befeh- 
le. Dieser Mangel wird dadurch etwas aus- 
geglichen, daß man Zugriff auf einige im 
ROM eingebaute Routinen hat. 

Mit diesen Routinen hat man dann etwas 
mehr Möglichkeiten, Grafik zu erstellen. 
Doch ist die Lösung mit den ROM-Routi- 
nen nicht sehr elegant, zumal deren Be- 
nutzung im Handbuch nur sehr kurz be- 
schrieben wird. 


7.1. Basic-Befehle. 
/.1.1. Koordinaten 


Bei allen Grafik-Befehlen müssen Koordi- 
naten angegeben werden, die bestimmen, 
wo im Ausgabefenster gearbeitet wird. 
Diese Koordinaten kann man auf zwei Ar- 
ten angeben: 


absolut: (X,Y) bestimmt den Punkt im 
Fenster, der die angegebenen Koordina- 
ten besitzt. Die erste Zahl ist die X-, die 
zweite Zahl die Y-Koordinate. Beispiel: 
(100,25) — die linke, obere Ecke hat die 
Koordinaten (0,0). 


Bits 
b 


| 000 1 000 01 | 
000 0 111 10 
011 0 011 01 
101 0 101 01 
110 0 110 01 
100 0 100 01 
010 0 010 01 
001 0 001 01 


| Magenta 
Gelb 





Normal 
| | Invers 
Blau additiv 
Grün für 
Rot Monitor 
Schwarz 
= Gelb subtraktiv 
— Magenta * für 
Cyan Drucker 


Tabelle der Farbwerte 
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€ File Edit Control 


== 


4 Mecki MA 





beispiel I 


1OCLS:PI=4* ATN (1) 

20 FOR I=0 TO 100 STEP 10: A = PI* 1/7100 

30 LINE (15, 50+1} - (15+I, 150) 33 
LINE - STEP (5, 10+1/2),, 
CIRCLE (125-173, 354173), on 33 [I 
CIRCLE (180+1, 60), SO*SIN(A), , PI/2, Pl+A,2 ae 
CIRCLE (320+1, 60), 1/2, , -PI-A, - 3*PI+A 4 


relativ: (DX,DY) bestimmt den Punkt im 
Fenster, der vom zuletzt angesprochenen 
Punkt so weit entfernt ist, wie es die Koor- 
dinaten angeben. Beispiel: angenommen, 
es wurde zuletzt der Punkt (100,25) ge- 
zeichnet. Dann bezeichnet „STEP (-20, 
30)“ den Punkt (80,55). 


/.1.2, Farben 


Bei fast allen Grafik-Befehlen kann man 
eine Farbe angeben, mit der gezeichnet 
werden soll, Jede Farbe wird durch eine 
bestimmte Nummer dargesiellt. Die beim 
Macintosh vorgesehenen Farben sind mit 
ihren zugehörigen Nummern in der Tabel- 
le angegeben. 

Der Mac kann zur Zeit nur schwarz und 
weiß darstellen. Alle anderen Farben wer- 
den als schwarz interpretiert (vgl. dazu die 
Spalte „Bit 0“ in der Tabelle). 

Falls man bei den Befehlen keine Farbe 
angibt, setzt das Basic als Defaultwert 
schwarz ein. 


7.1.3. Einzelne Punkte 


PSET Koord., Farbe und 

PRESET Koord., Farbe — zeichnen den 
angegebenen Punkt in einer bestimmten 
Farbe. Die beiden Befehle unterscheiden 
sich nur dann, wenn man keine Farbe an- 
gibt. PSET benutzt dann die sogenannte 





„Vordergrund“ -Farbe (normalerweise 
schwarz), dagegen benutzt PRESET die 
„Hintergrund“ -Farbe (normalerweise 
weiß). | 


7.1.4. Linien und Flächen 


Mit dem Befehl „LINE“ (nicht zu verwech- 
seln mit der gleichnamigen ROM-Routine 
(), s.u.) kann man Linien und Rechtecke 
zeichnen: 


LINE Anf - End, Farbe - zeichnet eine 
Linie von der Anfangs- zur End-Koordina- 
te in der angegebenen Farbe. 

Man kann die erste Koordinate weglassen; 
dann beginnt die Linie beim zuletzt ange- 
sprochenen Punkt. 

Wenn keine Farbe angegeben wird, so 
wird in schwarz gezeichnet. Der Befehl: 
LINE (100,25) - STEP (-20,30) 

zeichnet also eine schwarze Linie vom 
Punkt (100,25) zum Punkt (80,55). 


An den „LINE“-Befehl kann man noch 
zwei Zusätze anhängen: 


‚ B- (Box) zeichnet ein Rechteck, bei dem 
zwei gegenüberliegende Ecken durch die 
angegebenen Koordinaten bestimmt wer- 
den. Es wird nur der Rahmen des Recht- 
ecks in der angegebenen Farbe gezeich- 
net, das Innere bleibt unverändert. 


61 


„BF - (Box Fill) zeichnet ebenfalls ein 
Rechteck, das aber mit der angegebenen 
Farbe ausgefüllt ist. 

Beispiele zu diesem Befehl sieht man in 
Abb. i. 


Mit dem nächsten Befehl können Kreise, 
Ellipsen und Ausschnitte aus diesen bei- 
den Flächen gezeichnet werden: 


CIRCLE Mitte, Radius, Farbe — zeichnet 
einen Kreis mit dem angegebenen Mlittel- 
punkt und Radius. Der Radius wird in Pi- 
xein angegeben (1 Pixel = 1 Grafikpunkt). 
Zur Farbe gilt das bisher Gesagte. Es wird 
wiederum nur der Rand des Kreises mit 
dieser Farbe gezeichnet, das Innere bleibt 
unverändert. 


Auch an diesen Befehl kann man Zusätze 
anhängen: 


„ Anf, End — bestimmt einen Ausschnitt 
des Kreises, der gezeichnet werden soll. 
Der Kreis wird vom Winkel Anf bis zum 
Winkel End gezeichnet. Die Winkel wer- 
den im Bogenmaß angegeben, wobei der 
Winkel O nach rechts zeigt, der Winkel PI/2 
nach unten. 

Falls einer der beiden Winkel negativ ist, 
so wird die Randlinie des Kreisausschnitts 
mit dem Mittelpunkt des Kreises verbun- 
den, so daß eine Art „Kuchenstück” ent- 
steht. Von den Winkeln wird der Betrag 
genommen. (Dies entspricht also nicht der 
Addition von 2 Pl!) 

Leider wird keine Linie zum Mittelpunkt 
gezogen, wie man vielleicht annehmen 
könnte, sondern es wird ein Kreisaus- 
schnitt von 2 Grad gezeichnet. Dieser ist 
dann natürlich außen breiter als innen, wo 
er fast gar nicht zu sehen ist, 

Beispiele zu diesem Befehl sieht man 
ebenfalls in Abb. 1. 


Es gibt noch einen weiteren Parameter, 
den man anfügen kann: 


‚ Quotient — gibt das Verhältnis vom Ra- 
dius in Y-Richtung zum Radius in X-Rich- 
tung an. Damit ist es möglich, Ellipsen zu 
zeichnen. 

Der im Befehl angegebene Radius ist im- 
mer der größere von den beiden Radien. 
Falls der Quotient kleiner als 1 ist, ist also 
der Radius in X-Richtung angegeben, an- 
sonsien der in Y-Richtung. 

Beispiele dazu sind ebenfalls in der Abb. 1 
zu sehen. 
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Bei der Verwendung der zusätzlichen Pa- 
rameter ist zu beachten, daß durch Kom- 
mas angegeben werden muß, um welchen 
Parameter es sich handelt. Soll zum Bei- 
spiel nur der Quotient angegeben werden, 
so lautet der Befehl etwa: 

CIRGEEEOSN SU 72 


7.1.5 Sonstige Befehle 


Es gibt noch zwei weitere Basic-Befehle, 
die es erlauben, einen Teil des Bild- 
schirms (genauer: des Ausgabefensiers) 
in eine Array-Variable einzulesen und spä- 
ter wieder auszugeben. Diese Befehle 
heißen „GET“ und „PUT“, sind aber nicht 
mit denselben Befehlen für die Ein-/Aus- 
gabe zu verwechseln. 


GET Anf - End, Array - liest den Inhalt 
des angegebenen Rechtecks in die Array- 
Variable ein. Dabei muß beachtet werden, 
daß das Array groß genug dimensioniert 
wurde, um auch alle Bits speichern zu 
können. 

Jede Zeile des Bildes wird in Vielfachen 
von 16 Bits gespeichert. Falls das Bild 
etwa 21 Pixel breit ist, werden für jede 
Zeile 32 Bits oder 4 Bytes benötigt. 

Damit läßt sich die Größe eines Bildes 
berechnen. Sei (X1,Y1) die linke, obere 
und (X2,Y2) die rechte, untere Ecke des 
Rechtecks, so muß das Array mindestens 
4+(Y2-Yi+1)*2x&INT ((X2-X1 + 16) 


E —®-* 
I0CLS: DIM S%(65) 
20 PRINT " Hallo“ : PRINT " Peeker" 
30 LINE (3, 0) - (36, 33),,B 

0 GET (4, 1) - (35, 32), 5% 
50 FOR I=0 TO 100 STEP 10 ® 
60 PUT (40+3#1, 60-172) - (40+4*1, 60-1372), 58 | 


/ 16) Bytes lang sein. Der Ausdruck ab 
„2 x INT“ gibt an, wieviele Bytes für eine 
Zeile benötigt werden. Dieser Wert wird 
mit der Zahl der Zeilen multipliziert. Die 
„4“ am Anfang des Ausdrucks kommt da- 
her, daß neben dem Bild auch dessen 
Dimensionen (Breite und Höhe) gespei- 
chert werden, die je 2 Bytes benötigen. 
Für den Befehl: 

GET (80,25) - (100,55), A% 

muß A% mindestens 128 Bytes lang sein. 
Wieviele Elemente A% enthalten muß, 
sieht man, wenn man sich nochmals die 
Größen der einzelnen Zahlen-Typen (vgl. 
Teil 1, Peeker 2/84) vor Augen halt: 

2 Bytes für ganze Zahlen, 

4 Bytes für einfach genaue, 

8 Bytes für doppelt genaue rationale 
Zahlen. 

Das Array A% (ganze Zahlen) muß also 
mindestens 64 Elemente enthalten, was 
durch „DIM A% (63)" erreicht wird. 


PUT Anf - End, Array, Modus - gibt das 
im Array gespeicherte Bild wieder auf dem 
Bildschirm an der Koordinate Anf aus. 
(„Anf“ ist die Koordinate der linken, obe- 
ren Ecke). 

Wenn die Koordinate der rechten, unteren 
Ecke End nicht angegeben ist, so wird das 
Bild mit den ursprünglichen Dimensionen 
gezeichnet (s.0.). 

Falls aber die zweite Koordinate angege- 
ben ist, wird das Bild so gedehnt oder 
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gestaucht, daß es in das angegebene 
Rechteck hineinpaßt! 

Der Modus, den man hinter dem Befehl 
angeben kann, bestimmt die Art, wie das 
Bild gezeichnet werden soll. Es kann eines 
der folgenden Worte angegeben werden: 
PSET kopiert das Bild normal auf den Bild- 
schirm. 

PRESET kopiert das /nverse des Bildes 
auf den Bildschirm. 

AND, OR oder XOR verknüpfen das Bild 
bitweise mit dem Bildschirminhalt. 


Falls kein Modus angegeben ist, wird 
„XOR“ angenommen. Mit diesem Modus 
kann ein gezeichnetes Bild wieder ge- 
löscht werden, wobei der Hintergrund un- 
verändert bleibt. 

Beispiele für „GET“ und „PUT” sieht man 
in Abb. 2. 


7.2. ROM-Routinen 
7.2.1. Aufruf 


Die im ROM des Macintosh vorhandenen 
Zeichenroutinen werden wie alle Program- 
me in Maschinensprache mit dem Befehl 
„CALL” aufgerufen (vgl. Teil 2, Peeker 1/ 
2-85). An die meisten Routinen müssen 
Parameter wie z.B. die Koordinaten eines 
Rechtecks übergeben werden. Der Aufruf 
mit Parametern sieht allgemein so aus: 


CALL Name (Par, Par2, ...) 


Die Namen der Routinen sind reservierte 
Wörter, die man wie die normalen Basic- 
Befehle nicht als Varilablennamen benut- 
zen darf. 


/.2.2. Parameter 


Da das ROM des Macintosh nichts über 
Basic-Variablen und deren Aufbau weiß, 
müssen die Parameter der einzelnen Auf- 
rufe vom Basic aus simuliert werden, was 
in Basic weitaus weniger elegant erscheint 
als in Maschinensprache oder in Pascal. 


Die von MS-Basic aus erreichbaren Zei- 
chenroutinen benötigen verschiedene Ar- 
ten von Parametern: 


Word (2 Bytes) gibt ganze Zahlen an (16 
Bits, vorzeichenbehaftet). Damit werden 
z.B. einzelne Koordinaten dargestellt. 
Beim Aufruf braucht man hier nur eine 
ganze Zahl einzusetzen. 

Point (2 Words = 4 Bytes) gibt die Koordi- 
naten eines Punktes an. 
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Beim Aufruf ist es am einfachsten, wenn 
man nicht einen Parameter mit 4 Bytes 
angibt, sondern zwei Parameter mit je 2 
Bytes. In diesem Fall kann man die Koordi- 
naten mittels zweier ganzer Zahlen (z.B. 
„KX%, Y%)“) angeben. 


Alle sonstigen Parameterarten benötigen 
mehr als 4 Bytes. Sie werden nicht direkt 
an das Maschinenprogramm übergeben, 
sondern nur ihre Adresse. Diese besteht 
aus 4 Bytes. 

Falls ein Parameter von der ROM-Routine 
an das Basic-Programm zurückgegeben 
wird (z.B. die Position des „Pen“, s.u.), SO 
wird ebenfalls nur die Adresse des Para- 
meters übergeben, egal, ob der Parameter 
länger als 4 Bytes ist oder nicht. 

Wer das jetzt nicht so ganz verstanden hat, 
sieht sich am besten die Beispiele zu den 
einzelnen Routinen in den Abb. 2 bis 4 
an. 


Es gibt folgende Parameter, die länger als 
4 Bytes sind: 


Rect (4 Words = 8 Bytes) gibt die Koordi- 
naten eines Rechtecks an in der Reihen- 
folge oberer, linker, unterer und rechter 
Rand. 

Beim Aufruf wird folgendes übergeben: 
„VARPTR (R%(0))“, wobei R% ein Array 
mit mindestens 4 Elementen (ganzen Zah- 
len) ist. Die Funktion „VARPTR" liefert 
gerade die Adresse der Array-Elemente. 
Pattern (3 Bytes) gibt ein Muster an, mit 
dem Flächen gefüllt werden können (wie 
z.B. bei „MacPaint“ die Muster in der un- 
teren Zeile). 

Ein solches Muster besteht aus 3 * 8 
Pixeln, benötigt also 8 Bytes. Das erste 
Byte entspricht dabei der obersten Zeile 
des Musters, das zweite Byte der zweiten 
Zeile, usw. In jeder Zeile entspricht das 
Pixel ganz links dem höchstwertigen Bitim 
Byte oder dem Zahlenwert 128. Das Pixel 
ganz rechts entspricht demnach dem nie- 
derwertigsten Bit im Byte oder dem Zah- 
lenwert 1. 

Der Parameter beim Aufruf lautet dann 
etwa „VARPTR (P%(0))“, wobei P% wie- 
der ein Array mit mindestens 4 Elementen 
sein muB. 

Cursor (68 Bytes) bestimmt die Gestalt 
des Cursors, also das Bild, das mit der 
Maus bewegt wird (z.B. der Pfeil). 

Die ersten 32 Bytes stellen die sogenann- 
ten „Cursordaten“ dar. Dies ist ein Recht- 
eck aus 16 * 16 Pixeln, das das Bild des 
Cursors angibt. 

Doch werden normalerweise nicht alle die- 
se Pixel gezeichnet, da sonst der Cursor 
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immer rechteckig wäre. Welche Pixel ge- 
zeichnet werden sollen, bestimmt die 
„Cursormaske”, die aus den nächsten 32 
Bytes besteht. Es handelt sich hier wieder 
um ein 16*16-Rechteck. Wenn ein Bit der 
Maske auf „1“ gesetzt ist, so wird das 
entsprechende Bit der Cursordaten auf 
dem Bildschirm gezeichnet, ansonsten 
bleibt der Hintergrund des Cursors sicht- 
bar. Beim normalen Pfeil hat die Maske 
ebenfalls Pfeilform, ist aber um ein Pixel 
breiter als die Cursordaten. Dies ergibt 
einen weißen Rand um den Pfeil. 

Mit dem Cursor will man nun nicht eine 
Flache von 16 * 16 Pixeln auswählen, 
sondern einen ganz bestimmten Punkt. 
Beim Pfeil ist dies z.B. die Pfeilspitze, bei 
einem kreuzförmigen Cursor die Mitte des 
Kreuzes. Dieser Punkt (auch „HotSpot“ 
genannt) wird durch die letzten 4 Bytes 
bestimmt. Diese 4 Bytes haben den Auf- 
bau von „Point“ (s.o.). Ein Wert von (0,0) 
steht für die linke, obere Ecke, (15,15) für 
die rechte, untere Ecke. Die erste Zahl ist 
die Y-, die zweite die X-Koordinate. 

Beim Aufruf wird folgendes übergeben: 
„VARPTR (C%(0))", wobei C% ein Array 
mit mindestens 34 Elementen sein muß. 





Nach diesen sehr theoretischen Ausfün- 
rungen kommen wir nun zu den einzelnen 
Routinen und damit auch zu Beispielen, an 
denen das vorher Gesagte mit etwas mehr 
Leben erfüllt werden soll. 


/.2.3. Cursor-Rouftinen 


CALL HideCursor — diese Routine hat 
keine Parameter. Bei jedem Aufruf der 
Routine wird eine Variable des Betriebssy- 
stems, der sogenannte „CursorLevel”, 
um 1 erniedrigt. 

Der „CursorLevel“ ist eine vorzeichenbe- 
haftete 16-Bit-Zahl, Wenn diese Zahl ne- 
gativ ist, ist der Cursor nicht sichtbar. 

Mit einem Aufruf von „HideCursor" er- 
reicht man also, daß der Cursor nicht mehr 
zu sehen ist. (Dies kommt z.B. beim Boo- 
ten des Mac vor, wenn das Fenster mit der 
Meldung „Willkommen zu Macintosh” er- 
scheint.) 

CALL ShowCursor — auch diese Routine 
hat keine Parameter. Sie ist das Gegen- 
stück zur „HideCursor”-Routine, denn sie 
erhöht die Variable „CursorLevel” um 1. 
Falls dadurch die Variable positiv (also grö- 
Ber oder gleich O0) wird, dann wird der 
Cursor wieder sichtbar. Zu beachten ist 
dabei, daß der „CursorLevel“ vom Be- 
triebssystem her nie größer als Null wird. 
so hat z.B. die Folge: 


63 


CALL ShowCursor 

CALL ShowCursor 

CALL ShowCursor 

CALL HideCursor 

die Wirkung, daß der CursorLevel auf -1 
steht und der Cursor also nicht sichtbar ist. 
CALL ObscureCursor — ebenfalls eine 
Routine ohne Parameter. Sie macht fol- 
gendes: 

Zunächst ruft sie „HideCursor” auf, das 
heißt, daß der Cursor verschwindet. An- 
schließend wird in einer bestimmten Varia- 
blen des Betriebssystems notiert, daß der 
Cursor mit „ObscureCursor" versteckt 
wurde. 

Sobald der Benutzer danach die Maus und 
damit den Cursor bewegt, wird sofort die 
Routine „ShowCursor“ aufgerufen; der 
Cursor wird wieder sichtbar. 

Die Aufgabe von „ObscureCursor" ist al- 
so, den Cursor solange verschwinden zu 
lassen, bis die Maus bewegt wird. Auch 
diese Routine wird manchmal beim Mac 
verwendet, z.B. verschwindet beim Micro- 
soft Basic der Pfeil, sobald eine Taste ge- 
drückt wird, wenn gerade kein Programm 
läuft. Der Pfeil wird allerdings sofort wieder 
sichtbar, wenn man die Maus bewegt. 
CALL InitCursor — diese Routine hat kei- 
ne Parameter. Sie bewirkt, daß der Cursor 
die gewohnte Form eines Pfeils bekommt, 
der nach links oben zeigt. Außerdem wird 
der „CursorLevel“ (s.o.) auf O gesetzt, so 
daß der Cursor sichtbar wird. 

CALL SetCursor (VARPTR (C%(0))) — 
diese Routine verändert die Form des Cur- 
sors so, wie im Parameter C% angege- 
ben. Der Aufbau und die Länge von C% 
wurde weiter oben schon erklärt. 

Ein Beispiel zu dieser Routine ist in Abb. 3 
gegeben. Das Programm liest die neue 
Gestalt des Cursors aus „DATA"-Zeilen 
ein und verändert den Cursor entspre- 
chend. Der neue Cursor ist im Bild in der 
Ecke des großen Quadrats zu sehen. 


7.2.4. Textausgabe 


Es gibt 4 Routinen, mit denen die Art, wie 
Text ausgegeben wird, verändert werden 
kann. Da in jedem geöffneten Fenster eine 
andere Art der Textausgabe möglich ist, 
wird mit diesen Routinen nur die Ausgabe- 
art des aktiven Fensters verändert. Bei 
einem laufenden Basic-Programm ist dies 
das Ausgabefenster. Die anderen Fenster 
(z.B. das Listfenster) werden dadurch 
nicht verändert. 


CALL TextSize (SIZE) — verändert die 


Größe der Buchstaben. Jeder Text, der 
nach diesem Aufruf ausgegeben wird, hat 
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Abb. 3 


die Größe SIZE. Diese Routine wird z.B. 
dann aufgerufen, wenn man etwa in 
„MacWrite“ eine andere Zeichengröße 
wählt, 

CALL TextFont (FONT) — wähit einen 
neuen Zeichensatz aus. FONT ist eine 
Nummer, die den Zeichensatz bestimmt. 
Es gibt die folgenden Nummern: 


0 - System-Zeichensatz 

1 - normaler Basic-Zeichensatz 
2 - New York 

3 - Geneva 

4 — Monaco (nicht proportional!) 
5 - Venice 


6 —- London 
7 - Athens 
8 - San Francisco 
9 — Toronto 


CALL TextFace (FACE) — bestimmt die 
Art, wie die einzelnen Buchstaben ausge- 
geben werden. FACE ist dabei eine Zahl, 
deren einzelne Bits die folgende Bedeu- 
tung haben: 


Bit O (01) - Bold (fett) 

Bit 1 (02) - Italic (kursiv) 

Bit 2 (04) - Underline (unterstrichen) 
Bit 3 (08) - Outline (umrahmt) 

Bit 4 (16) — Shadow (mit Schatten) 

Bit 5 (32) - Condense (Schmalschrift) 
Bit 6 (64) — Extend (breit) 


10 DIM C&(33) :CLS : LINE (47,47)-(163,163),B 
20 FOR I=0 TO 15 :D=0 :M=0 : F=-1 

30 FOR ]=0 TO 15 : READ A$ : DX=-Fr(A$="1") 4 
31 MX=-FH{A$o"_"): D=2*D+DX : M=2?M+MX sg 
32 IF MKX=0 THEN 40 ELSE X=50+7*] : Y=504+ 741 | } 
33 IF DX=0 THEN LINE (X, Y)-STEP(5.5),B Ei 
[34 IF DX»>Ö THEN LINE (X,Y)-STEP(5, 5), BF 
140 F=ABS(F) : NEXT : C&(1}=D : CZ(I+16)=M 
50 NEXT : READ C%(32).C$(33) 

51 CALL SETCURSOR (VARPTRICZ(ON)) : END 


DO DATA a 
61 DATA __.-.,.1,1,0,0,0,0,1,1_....- $ 
62 DATA _,-,-, 1,0,0,0,0,0,0,0,0,1,_._.- 


3 DATA _,_, 1,0,0,0,0,0,0,0,0,0,0,1 14 


56 DATA 1,0,0,0,0, ansaıı 0,0,0,0, | 
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"164 DATA _,1,0,0,0,0,0,0,0,0,0,0,0,0.1._. 4 
55 DATA _ 1,0,0,0,0,1,1,1,1,0,0,9,0.1 4 
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Die einzelnen Bits können wahlweise 
kombiniert werden (wobei nicht alle Kom- 
binationen gut zu entziffern sind). Wenn 
z.B. FACE = 70 ist, so wird nach dem 
Aufruf jeder Text in breiter Schrift, unter- 
strichen und zudem kursiv ausgegeben. 
Auch diese Wahlmöglichkeiten kennt man 
z.B. von „MacWrite”. 

CALL TextMode (MODE) - bestimmt die 
Art, wie der auszugebende Text mit dem 
Bildschirminhalt kombiniert wird. Es gibt 
die folgenden Werte: 


0 - Copy (direkte Kopie) 

1 - Or (normale Ausgabeart) 
2 -Xor (s.0.) 

3 -Bic (s.u.) 


Die Ausgabeart „Bic“ bedeutet, daß die 
Buchstaben in weiß gezeichnet werden. 
Welche Wirkung diese einzelnen Arten bei 
unterschiedliichem Hintergrund haben, 
zeigt die Abb. 4. 


7.2.5 Der Pen 


Der sogenannte „Pen“ ist der eigentliche 
Zeichenstift des Macintosh. Jedes Fenster 
besitzt seinen eigenen Stift. Dieser Stift 
hat eine ganze Reihe von Eigenschaften: 


PnLoc gibt die Position des Stifts im je- 
weiligen Fenster an. Dies ist gleichzeitig 
die Position, an der der nächste Text aus- 
gegeben wird, 
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10 DIM P&t3): FOR 1=0T03 


120 P&(1)=85*258 : NEXT 
\30CALLBACKPAT (VARPTR (P%(0))): CLS 
5 740 LINE (200,0)-(300,100), 33, BF 
50 LINE (0,0)-(100,100), 30, BF 
Ye “ CALL FILLRECT {(VARPTR {R%(0)), VARPTR (P%(0))) 
70 PRINT: : FOR I= 0 TO 3: CALL TEXTMODE 1) 


Abb. 4 


PnSize gibt die Größe des Stifts an. Der 
Stift hat eine rechteckige Form, deren Hö- 
he und Breite verändert werden kann. 
„PnLoc“ gibt dabei die Position der linken, 
oberen Ecke des Stifts an. 

PnMode gibt die Art an, wie die „Farbe 
des Stifts mit dem Bildschirm kombiniert 
werden soll (vgl. oben die Routine „Text- 
Mode"). 

PnPat stellt die „Farbe“ des Stifts dar. Es 
handelt sich um ein „Pattern“ (Muster aus 
8x8 Pixeln). 

PnVis gibt an, ob der Stift sichtbar ist oder 
nicht. Falls hier ein negativer Wert vorhan- 
den ist, dann ist der Stift nicht sichtbar (vgl. 
„CursorLevel“ weiter oben). Dies hat die 
Wirkung, daß alles, was mit dem Stift ge- 
zeichnet wird, nicht sichtbar ist. 


Alle diese Eigenschaften können mit den 
nachfolgenden Routinen verändert 
werden: 


CALL HidePen - erniedrigt „PnVis” um 1. 
Dadurch wird der Pen unsichtbar. 

CALL ShowPen - erhöht „PnVis“ wieder 
um 1. Dies ist also das Gegenstück zu 
„HidePen”. 

Im Gegensatz zu „CursorLevel“ kann 
„PnVis“ auch größer als Null werden, so 
daß man hier aufpassen muß, daß man 
von beiden Routinen dieselbe Anzahl ver- 
wendet. 
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CALL GetPen (VARPTR (L%(0))) — gibt 
die momentane Position des Zeichenstifts 
in die Variable L% zurück. L% ist dabei ein 
Array mit mindestens zwei Elementen, 
wobei L%(0) die Y-Koordinate und L% (1) 
die X-Koordinate ist. 


Dies ist die einzige ROM-Routine, die eine 
Information an das Basic zurückgibt. Des- 
halb muß auch hier die Funktion 
„VARPTR“ verwendet werden, obwohl 
der Parameter selbst vom Typ „Point“, 
also nur 4 Bytes lang ist. 


CALL PenSize (B, H) — bewirkt, daß der 
Stift ein Rechteck mit der Breite B und 
Höhe H wird. Beide Parameter haben die 
Einheit Pixel. 


CALL PenMode (MODE) - setzt „Pn- 
Mode“ auf den Wert von MODE. Die mög- 
lichen Werte sieht man in der obigen Ta- 
belle, die bei „TextMode“ angegeben ist. 
ACHTUNG: Bei „PenMode“ muß zu je- 
dem dieser Werte noch 8 addiert werden! 
MODE liegt demnach im Bereich 8 bis 11, 
wobei z.B. 10 die Bedeutung „Xor“ hat 
10=8+2). 


(Für die interessierten Leser: dies hängt 
damit zusammen, daß mit dem Pen kein 
Text ausgegeben wird, sondern ein Mu- 
ster, nämlich „PnPat“. Bei der Ausgabe 
von Text muß MODE eine Zahl kleiner als 
8 sein, bei der Ausgabe eines Musters 
dagegen größer als 7.) 
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CALL PenPat (VARPTR (P% (0))) — verän- 
dert „PnPat“, also das Muster des Stifts, 
zu dem Muster, das in P% angegeben ist. 
P% istvom Typ „Pattern“, der weiter oben 
erklärt wurde. 

CALL PenNormal - bringt den Stift wieder 
in seinen „normalen“ Zustand. Dabei wer- 
den die folgenden Aktionen ausgeführt: 
„PnSize“ wird auf (1,1) gesetzt (1 Pixel 
breit, 1 Pixel hoch). 
„PnMode“ wird auf „Copy“, 
gesetzt. 

„PnPat“ wird auf schwarz gesetzt, d.h. 
daß alle 8x 8 Bits auf 1 sind. 

Die beiden anderen Eigenschaften des 
Stifts, „PnLoc“ und „PnVis“, bleiben un- 
verändert. 

CALL MoveTo (X, Y) — bewegt den Stift 
ohne zu zeichnen zu dem Punkt mit den 
angegebenen (absoluten) Koordinaten. 
CALL Move (DeltaX, DeltaY) — bewegt 
den Stift ohne zu zeichnen horizontal um 
DeltaX und vertikal um DeltaY weiter (rela- 
tive Koordinaten). 

CALL LineTo (X, Y) - wie „MoveTo“, nur 
wird diesmal bei der Bewegung eine Linie 
gezeichnet. Dabei werden nun die Eigen- 
schaften des Stifts (Muster, Größe, usw.) 
sichtbar. 

CALL Line (DeltaX, DeltaY) — wie „Line- 
To”, nur sind die Koordinaten relativ ange- 
geben. 

Diese Routine hat leider denselben Na- 
men wie der Basic-Befehl „LINE“ (s.o.). 


also auf 8 


Beispiele zu diesen Routinen sieht man in 
der Abb. 5. 


/.2.6. Der Hintergrund 


Es gibt eine Routine, mit der man das 
Muster verändern kann, mit dem norma- 
lerweise der Hintergrund ausgefüllt wird. 


CALL BackPat (VARPTR (P%(0))) — be- 
wirkt, daß fortan der Hintergrund mit dem 
Muster in P% (Pattern) ausgefüllt wird. 
Dieses Muster wird z.B. dann verwendet, 
wenn der Basic-Befehl „CLS" ausgeführt 
wird. Dadurch kann man das ganze Aus- 
gabeienster mit einem eigenen Muster 
ausfüllen (siehe Abb. 4). 


7.2.7. Flächen zeichnen 
Es gibt verschiedene Flächen, die man mit 
den ROM-Routinen zeichnen kann: 


Rect ist ein ganz normales Rechteck. 
Zur Beschreibung dieser Flache genügt 
ein Parameter vom Typ „Rect" (s.0.). 
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Oval ist eine Ellipse. Sie wird durch ein 
Rechteck definiert, dessen Höhe und Brei- 
te gerade die Höhe und Breite der Ellipse 
angeben. 

Zur Beschreibung dieser Fläche genügt 
also ebenfalls ein Parameter vom Typ 
„NRect”., 

RoundRect ist ein Rechteck, bei dem die 
Ecken abgerundet sind (z.B. der gesamte 
Schreibtisch des Mac). Die runden Be- 
grenzungslinien in den Ecken sind je ein 
Viertel einer Ellipse. 

Um diese Fläche zu beschreiben reicht ein 
Parameter vom Typ „Rect“ nicht aus. Zu- 
sätzlich benötigt man noch die Breite und 
die Höhe der Ellipse, die die abgerundeten 
Ecken definieren. 

Arc ist ein Ausschnitt einer Ellipse, der 
durch zwei Winkel gegeben ist (aber an- 
ders als bei „CIRCLE“!). 

Man benötigt zur Beschreibung dieser Flä- 
che einen Parameter vom Typ „Rect“ (de- 
finiert die Ellipse) und die zwei Winkel. 
Diese Winkel sind hier im Gradmaß ange- 
geben. Ein Winkel von O Grad zeigt nach 
oben, einer von 90 Grad nach rechts. Der 
erste Winkel ist der Anfangswinkel, wäh- 
rend der zweite Winkel angibt, wie weit 
und in welche Richtung vom Anfangswin- 
kel aus gezeichnet werden soll. Beispiele: 
90 Grad, 180 Grad - zeichnet den Aus- 
schnitt von 90 bis 270 Grad. 

90 Grad, -180 Grad — zeichnet den Aus- 
schnitt von 90 bis -90 Grad. 


Jede dieser 4 Flächen kann nun auf ver- 
schiedene Arten gezeichnet werden: 


Frame — die Fläche wird mit dem „Pen“ 
umrahmt. Dabei kommen alle Eigenschaf- 
ten des Pen zum Tragen, also die Größe, 
das Muster, usw. 

Der Pen wird dabei so geschickt geführt, 
daß nur innerhalb der angegebenen Flä- 
che gezeichnet wird. Dies ist deshalb nicht 
trivial, weil der Pen ja ein Rechteck mit 
veränderlicher Größe ist. 


F 


& File Edit Control 


Beispiel 5 


110 DIM P&(3), R%(3) : FOR 1=0 TO 3: anLAN BEI 
20 NEXT : DATA -3085, 12336, 16191, 0 
30 CLS :CALL PENSIZE (5,10): CALL MOVETO (10,10) 


40 CALL LINE (0,40) : CALL LINE (40,0) 
150 R&(0)=10 : R%(2)=60 


Troroeoooee 
SLELLELCELLE 


60 FOR I=0 TO 360 STEP 45 : R%{1)=1 : R%(3)=70+1 


170 CALL FRAMEARC (VARPTR (RR{O)), 0, 


1) 


80 NEXT : R%(0)=80 : R%(2)=200 : R%(3)=470 
90 CALL FILLRECT (VARPTR {R%{0)), VARPTR (PX(O))} 
100 2 LLJIRU MER RETENE SE alt: 


Paint — die Fläche wird in der sogenann- 
ten „Vordergrundfarbe“ gezeichnet (nor- 
malerweise in schwarz). 

Erase - zeichnet die Fläche in der „Hin- 
tergrundfarbe“, normalerweise in weiß. 
Dadurch wird diese Fläche praktisch ge- 
löscht. 

Invert — wandelt alle Pixel in der Fläche in 
das logische Gegenteil um: aus weiß wird 
schwarz und umgekehrt. 

Fill - füllt die Fläche mit einem bestimm- 
ten Muster (Pattern, s.o.). Dieses Muster 
muß man bei dem Befehl zusätzlich an- 
geben. 


Für jede der 4 Flächen stehen also 5 ver- 
schiedene Zeichenmöglichkeiten zur Ver- 
fügung, was eine Zahl von 20 verschiede- 
nen Routinen ergibt. 





Die Namen dieser Routinen setzen sich 
wie folgt zusammen: Das erste Teilwort 
gibt die Zeichenart an (z.B. „Erase“), das 
zweite Teilwort die Form der Fläche (z.B. 
„Oval“). Der Name dieser Routine lautet 
dann „EraseOval“. 

Beispiele zu den möglichen Aufrufen mit 
Parametern sieht man in den Abb.4 und 5 
und in den nachfolgenden Beispielen: 
CALL PaintRect (VARPTR (R% (0))) 

CALL FillOval (VARPTR (R% (0)), VARPTR 
(P% (0))) 

CALL InvertRoundRect (VARPTR (R% (0)), 
B, H) 

CALL EraseArc (VARPTR (R% (0)), A, W) 
CALL FrameRect (VARPTR (R% (0))) 
Dabei sei R% ein Array mit 4 Elementen 
(Rect), P% ebenfalls ein Array mit 4 Ele- 
menten (Pattern), B und H die Breite und 
Höhe einer Ellipse, A und W zwei Winkel. 


Gomputer-unterstütztes Lernen für Beruf, Weiterbildung, Schule NEU: Rücknahme von Lern- 


I 





66 


INTUS SOFTWARE 


Kaiserstraße 21, 7890 Waldshut, Telefon 0 7751/7920 


® Programme für Apple Ile/c/teilw. +. 

® Demo-Diskette mit8 Programmen 
und 7 Denkspielen DM 10,— 

® Gesamtkatalog mit über 160 Titeln 
kostenlos. 


programmen (wenn Sie den 
Stoff intus haben) zu 50 % 
des Kaufpreises bei Kauf 

eines anderen intus-Lern- 
programmes. 
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Grafik-Demonstrationen 


von Ralf Knoke 


Die abgedruckte Programmsammlung 
GRAFIK.DEMOS soll ein Beispiel dafür 
sein, wie man auch als Anfänger mit kur- 
zen Programmschritten schöne Grafiken 
im HGR-Bereich auf dem Apple Il erzeu- 
gen kann. Sie soll zur Nachahmung anre- 
gen. Es werden verschiedene Grafiken, 
sowohl zwei- wie auch dreidimensional, 
gezeigt. Im Listing sind die einzeinen Teile 
durch entsprechende REMs voneinander 
getrennt. 


Vor den eigentlichen Zeichenanweisun- 
gen (HPLOTs) werden meistens die Koor- 
dinaten der Endpunkte festgelegt. Dies er- 
scheint immer dann sinnvoll, wenn Punkte 
mehrmals angesteuert werden müssen. 
Das war allerdings nicht überall der Fall, 
weshalb manche Punkte direkt in der 
HPLOT-Anweisung angegeben werden. 
Hierzu ist für alle, die es selbst versuchen 
wollen, noch zu sagen, daß die Punkte 


ü 


natürlich nicht willkürlich gewählt worden 
sind. Man muß ihre Lage mit dem Compu- 
ter ausprobieren oder eine Skizze auf ei- 
nem karierten DIN-A4-Blatt anfertigen. Ei- 
ne Kästchenlinie entspricht dabei 5 
HPLOT-Punkten. Das hört sich schwieri- 
ger an, als es ist. Nach einiger Zeit hat man 
jedoch „den Bogen raus“. 


Arbeitet man im 80-Zeichenmodus, so 
sollte man in Zeile 1720 die Variable X auf 
6 vergrößern und in den HTAB-Anweisun- 
gen die addierten Zahlen verdoppeln, z.B. 
5 auf 10, 30 auf 60 usw. Dadurch wird die 
Beschriftung eindeutiger. 


Mit den Schleifen, die z.B. in den Zeilen 
1850-1920 vorkommen, erreicht man, daß 
Linien im 3-D-Bereich, die eigentlich nicht 
sichtbar sind, nur unterbrochen dargestellt 
werden. Dies ist einfach, wenn die Linien 
waagerecht, senkrecht oder im 45 Grad 
Winkel stehen, sonst gibt es Schwierigkei- 


Applepreise = Mondpreise? 


Die sog. Preisbindung der zweiten Hand 
(= vertikale Preisbindung = Festlegung 
der für den Einzelhandel verbindlichen 
Endabnehmerpreise durch den Produzen- 
ten) war früher für Markenartikel schlecht- 
hin zulässig. Seit 1974 können nur noch 
Verlagserzeugnisse der vertikalen Preis- 
bindung unterworfen werden, während für 
Markenartikel bestenfalls die sog. unver- 
bindliche Preisempfehlung zulässig ist. 
Als Mondpreis definiert man den „Miß- 
brauch von vertikalen Preisempfehlungen, 
indem die empfohlenen Bruttopreise zu 
hoch festgesetzt werden, um dem Einzel- 
handel die Unterbietung auch bei üblicher 
Kalkulation zu ermöglichen und damit dem 
Kunden besondere Preiswürdigkeit vorzu- 
täuschen“ („Gablers Wirtschaftsiexikon"). 
Die unverbindliche Preisempfehlung muß 
„in der Erwartung ausgesprochen werden, 
daß der empfohlene Preis dem von der 
Mehrheit der Empfehlungsempfänger vor- 
aussichtlich geforderten Preis entspricht“ 
($ 38a GWB). Das Bundeskartellamt ist in 
diesem Punkt nicht nur ungewöhnlich pe- 
nibel, sondern hinsichtlich der Geldbußen 
auch ausgesprochen drakonisch. Vor die- 
sem Hintergrund muß man sich fragen, ob 
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die unverbindlichen Preisempfehlungen 
für Apple-Produkte Mondpreise sind, denn 
für eine Reihe von Produkten ist der 
„Marktpreis (= vom Einzelhändler üb- 
licherweise geforderter Preis) oft bis zu 
oder teils sogar über 50% niedriger als der 
empfohlene Preis. Einige Beispiele (auf- 
grund der Apple-Preisliste, Stand März 
1985): 

Apple Ile Grundgerät: empfohlen DM 
3400,-, dagegen z.B. bei Vobis DM 1998, - 
Apple lic Grundgerät: empfohlen DM 
3750,-, dagegen z.B. bei ProSoft DM 
2649, - 

512K-Erweiterung für Macintosh: empfoh- 
ien DM 3780,- dagegen z.B. bei Schap- 
pach DM 1680,- oder bei Hoco DM 1690,- 
Macintosh Grundgerät mit 512K: empfoh- 
len DM 12250,-, dagegen z.B. bei Koslik 
DM 9500,- 

Die Vergleichspreise sind Anzeigen ent- 
nommen. Ergiebiger ist die Auswertung 
der tatsächlichen Preislisten der Einzel- 
händler. 


Für mich als Redakteur sind diese Preisab- 
weichungen — gelinde gesagt — ein Ärger- 
nis. Als ich den Testbericht zu der AP33 


4 hobby 94 





ten, da der Computer die Linien bricht. 
Beim N-Eck und bei der Tortenstück-Gra- 
fik wurden Eck- bzw. Kreisformeln not- 
wendig. In einem kurzen Artikel ist es 
schwierig, ihre Arbeitsweise Anfängern 
einfach und deutlich zu erklären. Ein Tip: 
Experimentieren Sie etwas, dann wird Ih- 
nen alles klar. Denn das Programm soll ja 
zum Experimentieren anregen. Für Fort- 
geschrittene sind die Formeln leichter zu 
durchschauen, zumal sie wohl auch öfter 
eingesetzt werden. Abschließend ist zu 
sagen, daß die Programme einen Mittel- 
weg zwischen Übersichtlichkeit und Kürze 
beschreiten. Aus diesem Grunde wurde 
auch bewußt auf ein Menü zur Auswahl 
der einzelnen Figuren verzichtet. Wer dies 
nicht missen möchte, wird das Problem 
auch als Anfänger durch Eingabe eines 
Strings und GOTO bzw. GOSUB lösen 
können. 


Und nun viel Spaß! 


(= 1024K-RAM-Karte) der Firma IBS er- 
stellte, die im Handel für ca. DM 3400,- 
(mit geringfügigen Schwankungen nach 
oben und unten) erhältlich ist, bot sich ein 
Preisvergleich zu der 512K-Mac-Erweite- 
rung an. Welchen Preis sollte ich jedoch 
hier ansetzen, den „empfohlenen“ Händ- 
lerpreis von DM 3780,- oder den um über 
50% niedrigeren „üblichen“ Händlerpreis 
von ca. DM 1700,-? Wenn Schulen und 
Universitäten Rabatte erhalten, dürften 
wohl die empfohlenen Preise und nicht die 
Marktpreise als Bezugsbasis dienen. Je- 
denfalls fiele es dem „Empfehlungsemp- 
fänger“ dann nicht schwer, ca. 20-30% 
abzuziehen, denn damit läge er immer 
noch über dem Marktpreis. Also nur eine 
Augenwischerei? 

Ich kann hier nur hoffen, daß man sich zu 
einer realistischeren Preispolitik ent- 
schließt oder Listen mit „unverb. empf. 
Verkaufspreisen incl. MwSt.“ gar nicht 
mehr an Endabnehmer abgibt, denn schon 
manche „empfohlene“ Augenwischerei 
ist ins Auge gegangen. 

U, Stiehl 
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GRAFIK.DEMOS 


1999 
181% 


REM Ralf Knoke 
REM Oktober 1984 


1828 : 


1106 
1119 
1128 
1139 
1148 
115® 
1168 
1179 


REM Raster-Muster 

HOME : HGR2 : HGR :M = 7 

HCOLOR= M 

FOR I 3700279 SEEP &© HPLOT 1,0. 20 7,1912 NEAT 
FOR I A TO 159 STEP 3: HPLOT 1,I TO 279,I: NEXT 
IFM= 7 THENM = ®: GOTO 1129 

GET A$: HOME 

HGR2 


1189 : 


1288 
1218 
1228 


1239 


REM Fünfeck-Stern 

HCOLOR= 7 

HPLOT 85,15 TO 149,188 TO 195,15 TO 52,117 TO 228,117 
Ioras „15 


GET A$: HGR2 : HCOLOR= 3 


1248 : 


1309 
1319 


1328 
1338 
1349 
1359 
1369 
1378 
138% 


1399 


1498 


REM Keplerscher Sternkörper 

A= 14B:B = 95:0 = 5:D = 22T:E = 67: F = 193:G = 167:H 
= 87:1 = 53:J = 23:K = 123:L = 185:M = 76:N = 196 
HPLOT A,B TO 
HPLOT A,B TO 
HPLOT A,B TÜ 
HPLOT A,B Tü 
HPLOT A,B TO 
HELOT-F,J "TO 
HPLOT TO 
TO 176, A TU D; K 0 
HPLOT 128,157 TO. H, 
F,134 

HPLOT 287,93 TO D,E TO F,57: HPLOT 169,33 TO 148,5 TO 
120.392. BELITB7 157 10.78 110773,95 


D,K TO Ed TOrA,L 70, J 
= HJ TocH,M TOAST RE TO INA To AL 
F,M TO F,J 
G TO H, 133: HPRLOT 161,153 TO FG TO 


urenama 


Se 
L 


1419 : 


1509 
151® 
1528 


1539 


REM Stern-Löscher 

GET A$: HCOLOR= 7 

FOR I = ß TO 14ß: HPLOT I, TO 1,191: HPLOT 279 - L,® 
TO 279 — I,191: NEXT 

GET A$ 


1549 : 


1698 
161® 
1628 
163ß 


164% 


REM Pythagoras 

HGR2 : HCOLOR= 3 

A= 156:B = 169:C = 189:D = 3:E = 124: F = 70 

HRLOT. B.D TU BA TO C,.A TO G,D TO BD TO E,FE TO E02 70 
84,81 TO: 39.55 IQ E.F TO 151,25 79 7186,51 10 B.D 

GET A$ 


1658 : 


1788 
1718 
1728 
173% 
1748 


REM Farbtafel 

HOME : HGR 

no 

VTAB (22): PRINT "FARBE : "; 

VTAB (24): HTAB (X): PRINT F;: HTAB (X + 5): PRINTF + 
1;: HTAB (X + 18): PRINT F + 2;: HTAB (X + 15): PRINT 
F+3;: HTAB (X + 2B): PRINT F + 4;: HTAB (X + 25): 
PRINT F + 5;: HTAB (X + 38): PRINT F+6;: HTAB (X + 
38): PRINE EB 7; 

M=200Ds al 

HCOLOR= M 

FOR I = ß TO 279: HPLOT I,® TO I,159 

IFI=Dx«# 35 THEND=D+ 1:M=M + 1: HCOLOR= M 
NEXT 


REM 3-D-Quader 

GET A$: HOME : HGR : HGR2 

HCOLOR= 7: HPLOT 65,85 TO 155,85 TO 156,175 TO 65,175 
10255 .85 10.128.212 70 218.21 70%2158 117702 155. 175 
HFLOT 155,85 TO 218,21 

A= 128:B = 111 


2069 
2078 


A = 2l6:B = 157 
FOR L = 3.79 A112. HPEOTSA.B TOR 2, Be 2A FA 4B 
=B- 4: NEXT 


2088 : 


2108 
2118 
2128 
2138 
2149 
2158 
2169 
2179 
2180 
2190 
2200 
2216 
2228 
2230 
2248 
2250 
226B 
2270 


REM N-Eck 

GET A$ 

ze] 

N = INT {{ RND {1) & 12B)) 
HGR2 

HCOLOR= 3 

FI=4% AIN (1]:9 
A 220:B = 96 

C A:D=B 

G 5 

FORT =1 TON 

X= 80 ** COS (Q «= I) + 149: Y 
HPLOT X,Y TO 1498,96: HPLOT X 
NEXT 

REM Wird in Zeile 2269 "Z" vergrößert, 
REM dann finden mehr Durchläufe statt. 
Z=2+ 1: IF Z= 3 THEN GOTO 238$ 
GET A$: GOTO 2139 


=2#PI/N 


N a 
C= 


= * SI 
‚ı T0=@.D: 


2RED : 


2388 
2319 
2320 
2350 
2340 
2359 
2369 
2370 
2380 
2390 
ll) 
2410 
2420 
2430 
2449 
2459 
2468 
2470 


2ABD 
2490 


2506 
251® 


REM Tortenstück-Grafik 
GET A$ 
PI = 3.14159265357 
DEF FN DR{W) = (W & PI) / 18P 
148 
96 
95 
: HCOLOR= 7 
GOSUB 3869 
RA = 95 / 2: GOSUB 3069 
FOR I = 1 T0 3 
WB = FN DR{I * 129) 
X=RA x COS (WB):Y = RA « SIN (WB) 
X=NX+X:Y=NY+Y 
HPLOT NX,NY TO X,Y 
NEXT 
FOR I=11703 
Xl=NX +95 * COS ( FN DR(I « 128 + 6ß)):Yl = NY + 96 
* SIN ( FN DR(I = 128 + 69)) 
x2 = NX + 95 / 2 = COS ( FN DR(I = 128 + 6ß)):Y2 
+95 /2 x SIN ( FN DR(I = 129 + 6ß)) 
HPLOT X1,Y1 TO X2,Y2 
NEXT 
GET A$: HOME : TEXT : END 


2528 : 


3dBB 
Sd1d 
3529 
Ssß59 
3B49 
3050 
3d6h 
3079 
3980 


= TO 369 

= FN DR(I} 

A x 2 (WB):Y 
x X+X:Y=NY+ 
IF I = ® THEN HPLOT 
HPLOT X1,Y1 TO X,Y 
= x =r 
NEXT 
RETURN 


RA & SIN (WB) 


‚Y: GOTO 306 


Diversi-DOS 2-C 


Die 


4-C-Dateien HELLO und ASMDIV ändern ein im 


Speicher befindliches Original-DOS-3.3 in Diversi-DOS 


NG 


um. Trotz gleicher Dokumentation gilt dies nicht für 


die Dateien HELLO und ASMDIV von Version 2-C, die 


auf 


der Peeker-Sammeldisk # 6 enthalten sind (s. 


Peeker, Heft 6/85, S. 74). Der Einfachheit halber haben 
wir deshalb zusätzlich die 4-C-Dateien auf die Sammel- 
disk # 8 aufgenommen. Die Implementierung unter 4-C 
ist Übrigens noch einfacher: Original-DOS-3.3 booten, 
dann Sammeldisk # 8 einlegen und HELLO starten 
(RUN HELLO). Wenn das Menü erscheint, ist DOS 3.3 
bereits gepatcht. Hauptmenü verlassen und mit INIT 


FOR I=1 T0 22 

HPLOT A,B TO A + 2,B:A 
A = 128: 

FOR I = 

HPLOT A, 

A= 1R8: 

FOR I = 

HPLOT A, 


A-4:B=B +4: NEXT 
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REM Pyramide 
GET A$: HGR2 : HCOLOR= 7 
HFLOT 126,157 TO 149,36 TO 83,114 TO 126,157 TO 
216,157 70. 149,35 TÜ 173,114 

= 83:B = 114 
FOR I = 1 TO 22: HPLOUTABTOA + 2B:A=A +4 
NEXT 





Leerdiskette formatieren. Dies ist alles. 

Inzwischen ist die Firma DSR umgezogen. Die neue 
Anschrift lautet: 

Diversified Software Research, 34880 Bunker Hill, 
Farmington, MI 48018-2728, USA. 
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Ein Einzeiler 


von Hans-Peter Lendle 


ZEICHENJAGD ist ein kleines Spiel und 
Trainingsprogramm mit der Tastatur des 
Computers. Ein einzelner Buchstabe er- 
scheint irgendwo auf dem Bildschirm und 
muß innerhalb einer bestimmten Zeit mit 
der entsprechenden Taste „erwischt“ 
werden. Ein Tonsignal belohnt den Erfolg, 
und die Wartezeit wird um eine Stufe ver- 
kürzt. Erreicht man Stufe 2, so kommt der 
nächste Buchstabe im Alphabet dazu, 
ebenso wenn man von Stufe 1 auf 2 abfällt 
(damit der nächste Aufstieg beschwerli- 
cher wird). 


Spielverlauf 


Tippt man keine oder die falsche Taste, so 
wird die Wartezeit um eine Stufe verlän- 
gert. Fällt man auf Stufe 9 zurück, wird ein 
Buchstabe weggenommen (zur Erleichte- 
rung). Vier Buchstaben bleiben jedoch in 
jedem Fall übrig. 

Das Programm startet mit Stufe 0 und 
Buchstabe „A“. Es „bremst“ sich, wenn 
keine Eingabe erfolgt, auf Stufe 9 ab. Die- 
se Stufe Ist bequem für das „Ein-Finger- 
Adler-Suchsystem“ geeignet. Wird „A" 
eingetippt, so erhöht sich die Spielstufe 
auf 2, bei der der Buchstabe „B“ hinzu- 
kommt. Mit etwas Geschick gesellen sich 
auch noch „C“ und „D“ dazu, mit sinken- 
der Wahrscheinlichkeit weitere Buchsta- 
ben — man fällt zurück. 

Jetzt muß man sich Buchstabe um Buch- 
stabe und immer wieder Stufe um Stufe 
hocharbeiten. Stufe 1 mit allen Buchsta- 
ben des Alphabets ist wohl sogar für 
„Zehn-Finger-Profis“ auf die Dauer 
schwer zu halten. 

Der aktuelle Leistungsstand steht oben in 
der Mitte des Bildschirms: die Spielstufe 
invers als Ziffer von 1 bis 9, der letzte zu 
erwartende Buchstabe blinkend daneben. 


Programmbeschreibung 


Die Beschreibung zeigt, daß das Pro- 
gramm durchaus nicht linear abläuft. Wenn 
man alles in einer Zeile unterbringen will, 
braucht man zwangsläufig etwas, was IF- 
THEN-ELSE in Applesoft simuliert. Wie 
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Zeichenjagd 











Bild 1 zu (10) 


K vermindern | 


Bild 2 zu (11) 


von Franz-Josef Hüskens in Peeker 2/84 
beschrieben, geht das mit Verknüpfungen 
von Wahrheitswerten. 


Bei der ZEICHENJAGD geschieht dies in 
den Teilen (9) bis (11). Dort nehmen die 
logischen Ausdrücke (P = B) oder (P <> 
B) die Werte 1 oder O an, die dann in 
arithmetische Ausdrücke eingebaut wer- 
den können. Bild 1 und 2 siellt diese 
umfangreichen Teile noch einmal als Fluß- 
diagramm dar. 


Das Programm selbst besteht aus 13 An- 
weisungen (das NEXT im Abschnitt (7) 
mitgezählt), die in einer einzigen Zeile un- 
tergebracht sind — und doch ist es ein 
durchaus brauchbares Trainingsprogramm 
für Anfänger und Könner (und mindestens 


Taste= 
Anzeige ? 








jä 










so spannend wie die ersten Computer- 
Pingpongspiele). 

Beim Eingeben des Programms sollten 
keine Leerzeichen getippt werden, weil 
sonst die Eingabezeile zu lang werden 
könnte. 

Wer auf bestimmte Buchstaben oder an- 
dere Zeiten mehr Wert legt als auf eine 
Verkürzung, kann sich ohne großen Auf- 
wand das individuelle Maßprogramm aus 
mehreren Applesoft-Zeilen neu schreiben. 
Meine böse BASIC-Fanatiker-Seele kann 
sich die Frage an die Pascal-Enthusiasten 
nicht verkneifen: „Geht so ’'was auch in 
Pascal?“ Aber ganz gleich, wo Sie stehen, 
ich wünsche Ihnen viel Spaß mit der ZEI- 
CHENJAGD, sei es beim Spielen, beim 
Trainieren oder beim Ändern. 
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ZEICHENJAGD (Einzeiler) 


Die nachgestellten Zahlen in Klammern sind nicht einzugeben 


1 HOME : (1) 
Z=RND (1): (2) 
POKE 1949,T + 48: (3) 
POKE 1644,K + 64: (4) 
B= INT (Z*K) + 19: (5) 
POKE 1244 + 2 & 724,B: (6) 
FOR I = 1 TO 358 «& T — 258: NEXT : (7) 
P= PEEK ( - 16384): (8) 
PRINT CHR$ (7 x (P=B) +32 x (P<>B));: (9) 
T=T+(B<>P)#+ (T<9)-(B=P)#s (T>]): (18) 
K=K+(T=2) * (K<25) - (T=9) * (K >5): (11) 
GOTO 1 (12) 


Erklärung zu den einzelnen Abschnitten: 


(1) 
(2) 
(3) 
(4) 


(5) 
(6) 


N) 


Bildschirm löschen; 

Zufallszahl Z bilden; 

Spielstufe T (invers) in Bildschirnspeicher POKEn; 
Höchsten Buchstaben (blinkend) in Bildschirmspeicher 
POKEn; 

neuen Buchstaben B aus Zufallszahl Z bestimmen; 
Buchstabe B in Bildschirm POKEn (diese POKEs können 
auch die "Screenholes" treffen); 

der Spielstufe entsprechend warten; 


(8) eingegebenen Buchstaben P aus Tastaturspeicher lesen; 
(9) Tonsignal geben, wenn Buchstabe stimmt; 
(18) Spielstufe dem derzeitigen Wert und der Eingabe ent- 

sprechend neu bestimmen (siehe Bild ]l)}; 
{11) höchsten Buchstabe dem derzeitigen Wert und der Spiel- 


stufe entsprechend verändern {siehe Bild 2); 


(12) wieder von vorn 


RAM.FRE 


Das Programm RAM.FRE aus Peeker, Heft 
1/2 - 85, S. 40 enthält einen schwerwie- 
genden Fehler im Algorithmus und läuft 
nur in wenigen Fällen einwandfrei (z.B. bei 
FRE.TEST). 

Das Problem liegt bei Strings, die im Spei- 
cher eine Seitengrenze überschreiten. Da 
jeweils nur eine Seite gepuffert wird, über- 
nimmt das Programm den Teil des Strings, 
der auf der nächsten Seite liegt, aus der 
Page 3 (der Puffer umspannt den Bereich 
$0200 bis $02FF). Die somit übertragene 
Zeichenkette enthält dann im hinteren Teil 
nur noch Schrott (um genau zu sein: einen 
Teil der Treiberroutine). 

In der neuen Version RAM.FRE.NEU wer- 
den die Strings nicht mehr im Eingabepuf- 
fer gesichert, sondern in den zwei Seiten 
von $9400 bis $95FF, wobei jedoch nur 
die Strings, die im Bereich $9400 bis 
$9AFF liegen, bearbeitet werden können. 


Diese Probleme treten bei der üblicher- 
weise benutzten LC-Version nicht auf. 
Aus Platzgründen kann hier nur der Hex- 
dump abgedruckt werden, der Quelltext ist 
auf der Peeker-Sammeldiskette enthalten. 
H. Grumser 


RAM. FRE. NEU 
RAM.FRE.NEU, A$92B6, 


BSAVE 
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92B8- 
92C0H- 
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9318- 
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9330- 
9338- 
934B- 
9348- 
9350- 
9358- 
9368- 
9368- 
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9390- 
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93APß- 
93A8- 
93B0- 
93B8- 
93C8- 
93C8- 
93D9- 
93DB- 
93EB- 
93E8- 
93FB- 
93F8- 
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DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler 
geschriebenes, ungewöhnlich schnel- 
les, unkompliziertes und zugleich 

„harrensicheres“ Adreß-, Datei- und 

Schemabriefprogramm. 

Der DB-Meister dient zum Anlegen, 

Pflegen, Sortieren, Selektieren und 

Ausdrucken von Dateien aller Art. Als 

Apple-Benutzer wissen Sie, wie lang- 

sam viele Programme dieser Art sind. 

Nicht so der DB-Meister! 

Drei Beispiele: 

— Jeder beliebige von 560-999 Re- 
cords wird nach Indexfeldern in 0,2 
Sekunden gefunden. 

Eine komplette Datendiskette mit 
z.B. 600 Records läßt sich in 1 
Minute nach 3 Feldern sortieren 
und untersortieren. Dabei ist die 
Zeit für Diskettenzugriff bereits mit- 
gerechnet. 

Das Einlesen eines 50 Sektoren 
langen Programm-Moduls dauert 
nur 3,5 Sekunden. 


Technische Daten des DB-Meisters 
Recordlänge bis zu 230 Zeichen 


560 bis 1000 Records pro Daten- 
diskette 


Maximal 25 Felder pro Record 


4 Datentypen (String, Integer, Dezi- 
malzahl, Real) 


Suche nach 3 Indexfeldern — je 4 
Zeichen lang — mit Wildcard-Funk- 
tion 

Sortieren und Filtern (kumuliertes 
Selektieren) geschieht nach den 
Index-Feldern 


Ausdruck der Dateien als Etiketten, 
Listen und Schemabriefe (mit Fel- 
der- und Tastatureinschüben an be- 
liebigen Stellen des Formbriefes) 
normal kopierbare Programmadisket- 
te, unterteilt in Hauptprogramme 
und diverse Hilfsprogramme 
einsatzfähig auf Apple Ile oder IIc. 
(Achtung: Brief-Modul läuft nicht mit 
Videx-Karte!) 

— 256K RAM-Disks verwendbar 


Gesamtpreis 290,- (2 Disketten + 
gedrucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 

Postfach 10 28 69 : 6900 Heidelberg 
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Die Polaroid-Foto-Systeme 


getestet von Thomas Bühner 
und Prof. Dr. Klaus Hausmann 


Zur  Foto-Dokumentation von 
Computer-Grafiken griff man bis- 
her zur vertrauten Kleinbildkamera. 
Polaroid hat jetzt zwei Systeme 
entwickelt, die bessere Ergebnisse 
erwarten lassen. 

Wer häufiger darauf angewiesen 
ist, Diagramme, Schaltpläne oder 
andere mit Computer-Hilfe ge- 
schaffene Grafiken zu Papier zu 
bringen, hatte bisher zwei generel- 
le Möglichkeiten zur Dokumenta- 
tion seiner Arbeit: einerseits die 
Ausgabe des gespeicherten Bildes 
mittels spezieller Hardcopy-Geräte 
— üblicherweise Plotter oder Ma- 
trxdrucker — auf Zeichenpapier 
und andererseits die Fotografie 
vom Schwarzweiß- oder Farb-Mo- 
nitor. 


Plotter und Matrixdrucker 


Der Einsatz des Plotters ist oft 
nicht möglich, da er nur von einer 
beschränkten Anzahl von Grafik- 
programmen angesprochen wer- 
den kann. Matrixdrucker liefern 
zwar eine punktgenaue Wiederga- 
be des Originals, verzerren aber 
auf Grund unterschiedlicher hori- 








zontaler und vertikaler Dehnungs- 
faktoren oft Kreise zu Ellipsen und 
Quadrate zu Rechtecken. Da 
mehrfarbige Matrixdrucker noch 
wenig verbreitet sind, entfällt auch 
die Möglichkeit zu bunten Repro- 
duktionen. 


Normale Kamera 


Die Frage Schwarzweiß oder Bunt 
spielt keine Rolle bei der Fotografie 
vom Bildschirm. Für beide Fälle 
gibt es geeignetes Material im 
Fachhandel. Ein Foto ist außerdem 
die originalgetreueste Form der 
Bild-Dokumentation. Dennoch 
wird dieser Weg selten eingeschla- 
gen, da die Nachteile zu schwer 
wiegen. Denn wie geht man vor? 

Zunächst wird die Kamera auf ein 
Stativ montiert und vor dem Moni- 
tor aufgebaut. Dabei muß man ge- 
nau darauf achten, daß die Film- 
ebene parallel zur Ebene des Bild- 
schirms liegt, da sonst eine ver- 
zerrte Aufnahme die Folge ist. Hel- 
ligkeit und Kontrast oder Farbsätti- 
gung des Bildes müssen genau 
stimmen. Dann wird der Raum ab- 
gedunkelt, um störende Reflexe zu 
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vermeiden. Um wenigstens ein 
oder zwei verwertbare Negative 
oder Dias zu erhalten, macht man 
nun eine Serie von Aufnahmen mit 
unterschiedlicher Zeit-/Blenden- 
Kombination. Schließlich gibt man 
den Film ins Labor und erhält eini- 
ge Tage später die fertigen Abzü- 
ge. Doch selbst dann, wenn man 
eine eigene Dunkelkammer be- 
sitzt, wird man bestenfalls nach ein 
paar Stunden die Ergebnisse vor- 
liegen haben. Und diese Prozedur 
muß für jede Foto-Dokumentation 
erneut durchlaufen werden. 


Polaroid-CU-5-Makro- 
Modul-System 


Im Vergleich zur herkömmlichen 
Bildschirm-Fotografie ist der Ein- 
satz des CU-5-Makro-Modul-Sy- 
stems kinderleicht. Aus den vielfäl- 
tigen Kombinationsmöglichkeiten 
der verfügbaren Module soll hier 
nur die gezeigt werden, mit der 
man Sofortbilder vom 12-Zoll-Mo- 
nitor macht. Für diesen Zweck be- 
steht die Kamera aus dem Kame- 
rakörper, dem Linsensystem und 
einem schwarzen Kunststofftrich- 
ter. Der Film wird eingelegt, Be- 
lichtungszeit und Blende nach den 
Empfehlungen des Herstellers ein- 
gestellt und der Trichter an den 
Bildschirm gepreßt. Dann betätigt 
man den Abzug - ähnlich wie bei 
einer Pistole -, entnimmt die Film-/ 
Entwickler-Folie, wartet eine Minu- 
te und zieht anschließend das ferti- 
ge Foto ab. 

Das Scharfstellen entfällt, da die 
Schärfe-Ebene des Linsensy- 
stems genau auf dem Bildschirm 
liegt. Ein Abdunkeln des Raums 
wird ebenso überflüssig, denn alle 
Lichtquellen sind durch den Kunst- 
stofftrichter abgeschirmt. Vor der 
ersten Benutzung des Geräts Ist 
es allerdings ratsam, das Innere 
mit einem schwarzen Mattlack zu 
bestreichen, da das Kunststoffma- 
terial selbst so stark reflektiert, daß 
unter Umständen Spiegelungen 
der einzigen Lichtquelle, die nicht 
abschirmbar ist, auftreten können: 
die des Monitors selbst. 


4 TESTDERICHTE 94 





Durch die gute Abbildungsqualität 
fällt nun ein Manko ins Auge: Da 
sich der Elektronenstrahl, der den 
auf der Röhre aufgetragenen 
Leuchtstoff' zum Fluoreszieren 
bringt, horizontal über das Bild be- 
wegt, entstehen Rasterlinien, die 
bei der Betrachtung des Fotos nun 
noch stärker ins Auge fallen als 
zuvor am Monitor selbst. Bei Farb- 
fotos muß man leider auch feststel- 
len, daß das empfohlene Filmma- 
terial nicht für diesen Zweck geeig- 
net ist, Die Farben wirken insge- 
samt sehr blaß, und der Rot-Änteil 
fehlt auf dem Foto fast ganz. Für 
Schwarzweiß-Aufnahmen stellt 
das Polaroid-CU-5-Makro-System 
aber eindeutig ein leicht zu hand- 
habendes Mittel dar, dessen Er- 
gebnisse einfachen bis mittleren 
Ansprüchen genügen. 


Polaroid-Palette-System 


Bei der Entwicklung des Palette- 
Systems besann man sich darauf, 
wie die Farberzeugung beim Fern- 
sehgerät vor sich geht: Die drei 
Grundfarben Rot, Grün und Blau 
werden auf dem Bildschirm in un- 
terschiedlichen Anteilen überein- 
ander projiziert und vermischen 
sich so für unser Auge. Hätten wir 
ein fotografisches Gedächtnis, so 
könnten auch zuerst alle Rot-An- 
teile des Bildes gezeigt werden, 
anschließend alle Partien, die Grün 
enthalten, und zum Schluß das 
Blau. Nun, für einen menschlichen 
Beobachter wäre eine solche Bild- 
Betrachtung ungeeignet, eine Fo- 
tokamera jedoch könnte keinen 
Unterschied wahrnehmen zwi- 
schen einer gleichzeitigen und ei- 
ner aufeinanderfolgenden Darbie- 
tung der drei Grundfarben. 

So besteht also das Palette-Sy- 
stem aus einem beigen Metallge- 
häuse, das ein Netzteil, einen klei- 
nen Schwarzweiß-Bildschirm, ein 
Rad mit Filtern in den drei Grund- 
farben und einen Motor enthält, der 
das Rad dreht. An der Rückseite 
befinden sich ein RS-232-C-Ein- 
gang, Monitor-Ein- und -Ausgang, 
ein Anschluß für einen Foto-Win- 
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II 


der und die bei Monitoren üblichen 
Regler. 

Nimmt man das Gerät zum ersten 
Mal in Betrieb, so wird zunächst 
über das mitgelieferte Kabel eine 
Verbindung zum RS-232-C-Inter- 
face, das in einem der Apple-Slots 
steckt, hergestellt. Dieses Inter- 
face Ist nicht im Lieferumfang ent- 
halten; viele Anwender werden 
vermutlich die Super-Serial-Card 
von Apple verwenden. Dann 
schließt man den Monitor des Pa- 
lette-Systems am Computer an. 
Nun wird die Programm-Diskette 
ins Laufwerk gelegt und gestartet. 
Das Gerät muß nun noch justiert 
werden, was in weniger als fünf 
Minuten erledigt ist. Jetzt ist es 
betriebsbereit. Beim nächsten Mal 
entfallen alle diese Schritte, ledig- 
lich eine Aufwärmzeit von 20 Minu- 
ten muß eingehalten werden. Je 
nach Wunsch befestigt man die 
Sofortbild- oder die 35-mm-Kame- 
raan der Vorderseite. 

Alle Aufnahmen zu diesem Artikel 
entstanden, soweit nicht anders 
vermerkt, mit der Sofortbild-Kame- 
ra auf Polaroid Polacolor ER Land 
Pack Film Type 669. 


Besitzt man nur ein Diskettenlauf- 
werk, muß man bei jeder neuen 
Aufnahme einen Disk-Wechsel 
vornehmen. Bei zwei Drives ist das 
nicht nötig. Die Bilder müssen als 
Binär-File auf Diskette vorliegen. 
Zu Problemen kann es also kom- 
men, wenn man etwa eine Szene 
aus einem kopiergeschützten Pro- 
gramm fotografieren will. Gewöhn- 
lich unterbricht man dann zum 
richtigen Zeitpunkt mit „Ctrl-Offe- 
ner-Apfel-Reset“ und nachfolgen- 


dem „Cirl-Reset“, verschiebt das 
Bild mit dem Monitor- „Move"-Be- 
fehl in einen sicheren Teil des 
Speichers, bootet eine Diskette mit 
normalem DOÖS und speichert 
schließlich die Grafik ab. (Ctri-Of- 
fener-Apfel-Reset zerstört übri- 
gens je 2 Bytes je Page, wodurch 
das HGR-Bild geringfügig „ent- 
stellt" wird.) 

Für den, der mit dem UCSD-Pas- 
cal-System Bilder geschaffen hat, 
wird bei Polaroid-Palette ein Pro- 
gramm mitgeliefert, das diese 
Dateien in das DOS-3.3-Format 
umwandelt und damit für eine Fo- 
tografie zugänglich macht. Doppelt 
hochauflösende Grafik, bei der die 
80-Zeichenkarte des Apple lle ein- 
gesetzt wird, kann mit der bisher 
vorhandenen Software nicht verar- 
beitet werden. 

Ist die Vorlage nun geladen, so 
kann man sich vor der Aufnahme 
ansehen, an welchen Stellen des 
Bildes die einzelnen der acht Ap- 
ple-Farben vertreten sind. Dem 
geübten Palette-Benutzer bietet 
diese Option die Möglichkeit, das 
Aussehen des fertigen Fotos in et- 
wa einzuschätzen und schon bei 
der ersten Aufnahme die nötigen 
Korrekturen vorzunehmen. 

Vor der Belichtung des Films prüft 
das Programm diese Farbvertei- 
lung und dreht zunächst den roten 
Filter vor das Objektiv der Kamera. 
Nun wird der zunächst leere 
Schirm an den Stellen gefüllt, die 
die größte Rot-Intensität aufwei- 
sen. Der Benutzer sieht auf sei- 
nem Monitor dasselbe, nur natür- 
lich nicht in Farbe. Einige Sekun- 
den später füllen sich die Stellen, 
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die eine geringere Rot-Intensität 
aufweisen. Dieser Prozeß setzt 
sich fort, bis alle Teile, die einen 
Rot-Anteil aufweisen, erschienen 
sind. Der Schirm wird daraufhin 
gelöscht, das Filterrad dreht sich 
und der Vorgang findet von neuem 
für die Farben Blau und Grün statt. 
Je nach Filmsorte dauert ein kom- 
pletter Belichtungszyklus ein bis 
zwei Minuten. 

Wenn im voraus klar ist, welche 
Bilder aufgenommen werden sol- 
len, besteht die Möglichkeit, all 
dies vollautomatisch ablaufen zu 
lassen, so daß man innerhalb von 
einer Viertelstunde etwa zehn ferti- 
ge Dias herstellen kann. 


Die oben erwähnten Rasterstreifen 
in der Aufnahme erscheinen bei 
dem Palette-System nicht mehr. 
Das wird dadurch erreicht, daß der 
Elektronenstrahl des kleinen Moni- 
tors bei jedem zweiten Durchgang 
um eine halbe Strahlbreite vertikal 
verschoben wird, so daß die hori- 
zontalen Leerstreifen, die gewöhn- 
lich zu erkennen sind, aufgefüllt 
werden. 


Sieht man sich bunte Apple-Grafi- 
ken auf Schwarzweiß-Schirmen 
an, so bemerkt man auch eine ver- 
tikale Rasterung: Alle Farben außer 
Schwarz und Weiß werden durch 
senkrechte Streifen dargestellt. 
Zur Erzielung unterschiedlicher Ef- 
fekte kann dies bei Aufnahmen mit 
dem Polaroid-Palette-System bei- 
behalten werden. 


Technische Tips 


Hat man nun ein Foto vor sich lie- 
gen, so stellt man fest, daß die 
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Probleme, die bei normal großer 
Schrift auch auf Farbmonitoren 
auftreten, nicht behoben sind: Die 
vertikalen Schriftteile sind nicht 
weiß, sondern grün und violett. 
Dieser Effekt geht auf die Art der 
internen Farbdarstellung des Apple 
zurück und kann durch herkömmli- 
che Methoden nicht behoben 
werden. 

Das Palette-System bietet dem 
Benutzer jetzt aber die Möglich- 
keit, jede der acht Farben der Ap- 
ple-Grafik in eine der 72 gespei- 
cherten umzuändern. Zunächst 
wird festgestellt, wo eine Verbes- 
serung nötig ist. In unserem Fall 
sollten die Buchstaben lesbar sein. 
Also gipt man dem Programm an, 
daß Weiß, Grün und Violett auf 
dem Foto in Gelb (C5) erscheinen 
sollen. Um auch gleich eine andere 
Farbkombination auszuprobieren, 
ersetzt man beispielsweise Oran- 
ge durch Hellgrün (B6), Blau durch 
Rot (D6) und Schwarz durch Dun- 
kelblau (F5). Buchstaben und Um- 
randung erscheinen nun einheit- 
lich. Nachteilig ist, daß jetzt auch 
alle Flächen, die zuvor grün oder 
violett waren, gelb sind. Bei der 
Schaffung von Bildern muß man 
also darauf achten, daß sich nur die 
vier Farben Schwarz, Weiß, Oran- 
ge und Blau später auf dem Foto 
unterscheiden. Mit den neuen 
Möglichkeiten kann man natürlich 
ebenso einen effektvollen hellen 
Hintergrund für Präsentationen 
schaffen. 

Im allgemeinen empfiehlt es sich 
jedoch, am äußeren Rand sparsam 
mit hellen Farben umzugehen. 
Sonst kann es schnell geschehen, 
daß die leichte kissenförmige Ver- 
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zeichnung des Monitor-Bildes, die 
sich bei der Aufnahme ergibt, ins 
Auge fällt. 

Um dem Benutzer die Arbeit weiter 
zu erleichtern, liefert Polaroid be- 
reits eine Vorschlagsliste für den 
Farbtausch mit. Die oberste Reihe 
entspricht dem Apple-Standard, 
während die Reihen 1 bis 8 Alter- 
nativen darstellen. Es fällt auf, daß 
Grün, Violett und Weiß immer 
durch dieselbe Farbe ersetzt wer- 
den. Das geschieht, um die be- 
schriebenen Probleme mit der Ab- 
bildung von Buchstaben und Zah- 
len zu verhindern. 

Die Benutzerführung » ist hier, 
ebenso wie im Rest des Pro- 
gramms, klar und unkompliziert. 
Wer mit den 72 vorhandenen Far- 
ben nicht zufrieden ist, kann selbst 
kreativ tätig werden und beliebige 
weitere Nuancen entwickeln, 


Technische Daten 


Produkt:  Polaroid-CU-5-Makro- 
System 

Einsatz: Makro-Fotografie 
Lieferumfang: Modul-System. 

Für Sofortbilder vom T12-Zoll-Mo- 
nitor: 

Kamerakörper 88-1 

Linsensystem 127 mm 88-5 
Monitorhaube 16 - 23,3 cm 88-49 
Filmmaterial: Polaroid Video Image 
Recording Land Pack Film Type 
611 und weitere schwarzweiße Po- 
laroid Land Pack Filme 

Computer: beliebig 
Voraussetzungen: Betriebsberei- 
ter Schwarzweiß-Monitor 

Preis inkl. Mwst.: in o.a. ÄAusstat- 
tung ca. DM 1740,- 
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Produkt: 
stem 
Einsatz: Foto-Dokumentation von 
Computer-Farbbildern für gehobe- 
ne Ansprüche 

Lieferumfang: Monitor/Rekorder, 
Sofortbildlkamera, Kleinbildkamera 
mit Autowinder, Sofortdia-Entwick- 
lungs-System, Anschlußkabel, 
Handbuch (80 Seiten, englisch), 
Programm-Diskette (kopierbar, 
englisch) 

Filmmaterial: verwendbar sind di- 
verse Sofortbild-Farbfilme, han- 
delsübliche Dia-Filme und Pola- 
roid-Sofortdias 

Computer: Apple-Il-Serie (jedoch 
keine Double-Hires-Unterstüt- 
zung) und verschiedene andere 
PCs 

Voraussetzungen: Computer, 1 
Diskettenlaufwerk (besser 2), RS- 
232-C-Interface 

Preis inkl, Mwst.: ca. DM 5600, - 
Bezugsquelle: Polaroid GmbH, Of- 
fenbach 


Polaroid-Palette-Sy- 


Abbildungen 


Bild 1: Motiv Heidelberg. 

Bild 2: Kreisdiagramm Flächennut- 
zung mit Original-Apple-Farbpalet- 
te (hier nur schwarzweiß). 

Bild 3: Kreisdiagramm Flächennut- 
zung mit ausgetauschten Farben, 
dunkler Hintergrund. Die Schrift ist 
nun lesbar geworden (hier nur 
schwarzweiß). 

Bild 4: Technisches Balkendia- 
gramm NaCli-Zugabe (hier nur 
schwarzweiß). 


ZUSATZ- KARTEN: 





V-24-Schnittstelle ......-.....  Z-B0-Karte -...-2e22040.0+... 139,- 

80-Zeichen-Karte m.Softswitch 2e - 16K-Language-Karte ......... 138,- 
Centronics-Karte von Epson für Graphik ,.. . 210,- für Text..::145,- 
Centronics-Schnittstelle für 2 Drucker gleichzeitig, En a Eee En . 199.- 

rommer incl. Software ...... N 198,- 

uper-Eprommer 9 
in keinen Siöt, incl. Software für 2708-27128 .........+.. e 
ae MER ER PNAFERTER TORE RERERT auf Anfrage 
Floppy-Controller 

FDC 4 für alle Laufwerke ...% ... 1770,- Bausatz wiellnks -.--zrrrreen: 159,- 
a el wie:oben incl. PromuEprom ...: Dia ers ?B, 

Dru Aa mit 16, 322:0der64 KB. ....:.....U0u022..: Preis auf Anfrage 





utopatt ch- Controller {Erphi Controller] 








1x A bis 2 -Disk, keine Patch-Disk notwendig, Patch DOS 3.3, Diversi- 
DOS 2-G,4-C (DD MOVER), Pascal 1.1, Pascal 1.2, CPM 2,2, ‚ProDoS 

1.0.1, 1.1, 1.1.1; Sie können die Laufwerke untereinander mischen 98, 
Jo Stick De Luxe .. 59,- Netzteil 5A ee 149,- 
Gehäuse für 15V" SimlineLaufwerk „uneneneneeseseeseeeeeeee een er 
Gehäuse für 25%" Slimline Laufwerke mit Platz für ein Netzteil ......... 159,- 
Gehäuse für 2 3%" Slimline Laufwerke mit Platz für ein Netzteil .......... 79,- 
EN CHORGENERE: 3:2 pe nl 229,- 
Floppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus escssesneenen 35,- 





Preh Commander Keyboards 


Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, An- 


Cirl-Codes und Rechenfunktionen . 


schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 339 | 
Pr er re ee # Fi 


Commander frei programmierbar 


Keyboard, 
| bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen .... „rer er, nur999,- 





TEAC 3 N Laufwerk FD 35 3 en 


Speicherkapazität 1 MB, (formatiert 640 KB) jetzt für nur ........ 





TEACFDS5A 1x 40 Track ..... 445,- TEACFD55B2x40 Track ...... s15,- 


TEACFDS5E1xX80 Track ..... 490,- TEACFDSSF2x80 Track ..... 560,- 
EN A ae oralen Seren nur 799,- 
Apple” -kompatibles Laufwerk incl. Gehäuse + Kabel een 599,- 


320 KB Laufwerk für Ile ................. 948,- 
148 KB Laufwerk für IIc.................. 


EPSON DRUCKER 


EPSONFX8O....... Re 1670,- EPSON FX100 ........2.2.... 2159,- 
EEE 1079, - EPSONRXBOFT . 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2x 1 MByte formatiert: 2 x 
640 kByte. Anschlußfertig mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
versiDOS 2-C, 4-G (DD MOVER), Apple Pascal 


1.1, Pascal 1.2, Pro-DOS 1.0.1, 
1.1, 1.1.1 zum Preisvon ........ 1640 uns 
Low Power Version .2.220 nenn. 1740,- 


10 MB Winchester „iso. 


für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS, Incl. Contraler 
und Gehäuse, bootet alle Systeme von der Winchester ..... 


Sonderangebot 


Disketten növseöd, 40 Track, SS/DD 10er Pack ....... 2 
Disketten Döb&Bäd, 2x80 Track, SS/DD, 10er Pack 


Gesamt-Preisliste anfordem! Preise indusive gesetzlicher Mehrwertstauer. 











UEDING electronics 


DFÜ 02373/66877 
Tel. 02373/63159 


Holtewiese 2 
5750 Menden 1 
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Das Bildverarbeitungssystem MAGIC 


Mit dem MAGIC-Bildverarbei- 
tungssystem für den Apple Macin- 
tosh von Heyden Datasystems 
können nun Bilder oder Objekte 
mit einer normalen Video-Kamera 
aufgenommen und danach auf 
dem Bildschirm des Macintosh 
wiedergegeben werden. 


Das System, das aus Video-Kame- 
ra, Interface, Software und einer 
ausführlichen Bedienungsanlei- 
tung besteht, ermöglicht die Wei- 
terverarbeitung der Bilder mit dem 
MacPaint-Programm, woraus sich 
ungeahnte Möglichkeiten zur grafi- 
schen Aufbereitung ergeben. 
Selbstverständlich können die Bil- 
der auch in andere Anwender- 
Software wie MacWrite übernom- 
men werden. 


Die Handhabung ist auf Grund der 
Menü-Steuerung sehr einfach, wo- 
durch auch der Computer-Läie kei- 
ne Schwierigkeiten beim Ablauf 
der Bilderfassung hat. 


Die Möglichkeit der Bild-Digitali- 
sierung laßt sich vielfach aus- 
nutzen: 


Im wissenschaftlichen Bereich 
können Strukturen erfaßt und aus- 
gewertet werden; im Bereich Gra- 
fik, Werbung und Design bietet 
sich die Aufnahme von Teilbildern 
zur gestalterischen Überarbeitung 
an, 








TRICARD - 
Multifunktionskarte 
für Apple lle 


Für alle Apple-Besitzer, die keine freien Steckplätze 
mehr haben, gibt es jetzt eine Multifunktionskarte, 
die von der Firma FAST Electronic entwickelt wurde. 
Diese Karte ist vollständig kompatibel zur Super- 
Serial-Card der Firma Apple. 

Darüber hinaus bietet sie eine akku-gepufferte Uhr, 
die mit entsprechender Treibersoftware für ProDOS 
und Apple Pascal betrieben werden kann. 

Als dritte Option ist der Betrieb eines Druckers über 
den Parallel-Port möglich. Die entsprechende Soft- 
ware und das zugehörige Centronic-Verbindungs- 
kabel können bezogen werden. 

Ein detaillierter Bericht zu dieser Karte wird dem- 
nächst erscheinen. 
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Preisliste 
Iikostenlos! 
Katalog DM 2,— 


Unser Angebot im August 


Chinon Laufwerk 
(Test peeker 5/85) 
DM 398,- 


Profimax Ill 
(= Lazar Ilze, Test peeker 6/85) 
DM 1248,— 


D.O.S. Computersysteme 
Am Kühnbach 42, 7170 Schwäbisch Hall 11 
Telefon (0791) 51736 





Siemens entdeckt 
neue Primzahl 


Nachdem wir wiederholt im Peeker 
gezeigt haben, wie der „kleine Ap- 
ple-Rechner" mit Primzahlen um- 
gehen kann (s. Primzahlen-Wett- 
bewerb, Heft 1/84 und folgende 
Ausgaben), zeigen wir einmal, wie 
der „große Siemens-Rechner" 
hier vorgeht und zitieren eine ein- 
gegangene Pressenotiz: 


Ein Leckerbissen für Mathematiker 
kommt aus Hamburg: Im Rechen- 
zentrum der dortigen Universität 
haben Wissenschaftler eine neue 
Primzahl ermittelt. Mit Hilfe eines 
Großcomputers vom Typ Siemens 
7.882 errechneten sie die Zahl 5 x 
2 1 23473 + 1, die ausgeschrie- 
ben insgesamt 7067 Stellen um- 
faßt. 


Zur Erinnerung: Primzahlen sind 
alle von 1 verschiedenen natürli- 
chen Zahlen, die nur durch 1 und 
durch sich selbst ohne Rest teilbar 
sind. Das beginnt mit der 2 -— übri- 
gens die einzige gerade Primzahl — 
und geht weiter mit der 3, 5, 7, 11, 
13, 17, usw. 


Die neue Primzahl ist aber nicht 
nur wegen ihrer Größe bemer- 
kenswert. Ihre Besonderheit liegt 
vielmehr darin, daß sie für die gi- 
gantische Fermat-Zahl 2 1 2 
223471 + 1 als Teiler fungiert. Un- 
ter allen Fermat-Zahlen ist dies die 
weitaus größte, deren Zerlegbar- 
keit bislang nachgewiesen werden 
konnte. Fermat-Zahlen sind alle 
Zahlen, die sich in der Form2 ? 2 
! n + 1 darstellen lassen. 


Der in Hamburg entdeckte Teiler 
für die genannte Fermat-Zahl ist 
die viertgrößte von den derzeit be- 
kannten Primzahlen. Die drei grö- 
Beren, die Primzahl 2 T 44497 - 1, 
2 1 86243-1 und2 T 132049 - 1 
sind in den USA ermittelt worden, 


Primzahlen kann man z.B. zum 
Verschlüsseln von Nachrichten 
verwenden. Dabei werden zwei 
sehr große Primzahlen miteinander 
multipliziert, was relativ einfach ist. 
Zum Entschlüsseln aber sind aus 
dem erhaltenen Produkt wieder die 
ursprünglichen Primzahlen zu er- 
mitteln — und dies ist für Uneinge- 
weihte extrem rechenaufwendig. 
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Sich regelmaßig informieren, 
«Peeker» abonnieren! 


Peeker Freaks nutzen jetzt die Vorteile eines Abos: 











® Regelmäßig erhalten Sie alle 
12 Peeker Ausgaben des Jahres 
und verpassen somit keinen Be- 
richt, kein Programm und keinen 
Tip 

@ Nutzen Sie den bequemen Ein- 
kaufsweg, denn Peeker kommt 
mit der Post zu Ihnen ins Haus 





August 










@ Der Preis des Abonnements 
ist Ihr Vorteil: 
Sie zahlen DM 72,- (inkl. Porto) 
jährlich statt DM 6,50 Einzelpreis. 
Das ist ein Heft gratis im Jahr 


een 
pn ‚orwaltung mit aB =) rd 


Hüthig 


PUBLIKATION 





Copy-Killer jetzt in deutsch 


Das bereits im Peeker 1/84 be- 
schriebene Kopierschutzpro- 
gramm Copy-Killer ist nun in deut- 


MATTE > MATTES >. MATTE = 
a Se 


AFOALBSEEET 2 Pructdädirgen) Trecphl-Yrn-Sande? Bel Fed 7607 Ted 





scher Version mit verbesserter Be- 
dienerführung erhältlich. Program- 
me, die mit dem Copy-Killer ko- 
piert werden, lassen sich mit den 
bislang bekannten Bit-Kopierpro- 
grammen wie z.B. Nibbles Away, 
Locksmith etc. nicht mehr ko- 
pieren. 

Beim Kopiervorgang ist wie folgt 
vorzugehen: Zunächst wird eine 
Copy-Killer Slave-Diskette ange- 
legt. Auf diese Diskette wird die 
Original-DOS-Diskette kopiert. 
Beim Kopieren auf die Slave-Dis- 
kette kann eine Meldung eingege- 
ben werden, die beim Booten an- 
gezeigt wird. So kann jede Disket- 
te individuell mit einer Seriennum- 
mer versehen werden. Der Preis 
beträgt DM 228,-. Copy-Killer für 
ProDOS ist in Vorbereitung. 


Microfloppy mit2x 1 MByte 


Die Firma Sommer GmbH bietet 
ein Microfloppy-Terminal MFT-A 
an, das die bisher üblichen 5,25- 
Zoll-Laufwerke ersetzt oder ge- 
meinsam mit bereits vorhandenen 
Floppy-Disks betrieben werden 
kann. Die Einbindung in das vor- 
nandene Betriebssystem (DOS 
3.3, CP/M 2.2 oder Apple Pascal 
1.1) erfolgt automatisch durch den 
Floppy-Disk-Controller mit PROM- 
residenter Patch-Software (Erphi- 
Controller); eine Patch-Diskette ist 
nicht erforderlich. Der Patch-Vor- 
gang — das Erweitern des Betriebs- 
systems und Einbinden der 80- 
Spur-Disketten — erfordert keiner- 
lei Eingaben durch den Benutzer. 


Das Doppellaufwerk in einem Me- 
tallgehäuse, das mit Kabel und 


Controller geliefert wird, hat eine 
unformatierte Speicherkapazität 


von 2 MBytes oder 1,2 MByltes 
formatiert. Der Preis beiträgt DM 
(inkl. MWSt.). 


1999;- 








ProDOS-Debugger BUGBYTER 


getestet von Dr. 
Kehrel 


Jürgen B. 


Sie haben stunden- oder gar tage- 
lang an einem Assemblerpro- 
gramm geschrieben, starten es 
voller Hoffnung zum ersten Mal, 
und zu Ihrem Entsetzen verab- 
schiedet sich Ihr ausgeklügelter 
Code in das Niemandsland. Jetzt 
hilft nur noch eins: Mit Ruhe und 
einem guten Debugger (= „Ent- 
wanzer“) Schritt für Schritt den un- 
heimlichen Spuren zu folgen. 


Zu II) IT 


Assemblerprogramme erzeugen 
einen sehr schnellen und kompak- 
ten Code, und oft ist es erst da- 
durch möglich, bestimmte Dinge 
auszuführen. Ein gewaltiger Nach- 
teil ist aber, daß Sie keinerlei Feh- 
lermeldungen erhalten, wenn et- 
was „schief geht“. Allenfalls haben 
Sie das Glück, die Stimme des Ap- 
ple zu vernehmen, verbunden mit 
der Anzeige einer Adresse und der 
Registerinhalte. Dann wissen Sie 
zumindest, wo Sie gelandet, aber 
immer noch nicht, wie Sie dorthin 
gekommen sind. 


TT- 177] TITIRT 7 


Für Apple ll, Ile = 


Z-80-Karte 19,- 
Disk-Interlace 79,.- 
Centronics-Interf. m. Kabel 79,- 


16-K-RAM-Karto 73,- 


RS-232-Karte 109,- 


Eprommer (4,8, 16K) 139,- 
128-K-RAM-Karte 299,- 


256-KB-RAM-Karte ve - 


 Wild-Karte 
# „(knackt geschützte anne 
Le h. HENMIBrenir Auen erwünscht! 


ZELLEN 
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80-Zeichen-Karte 149,- — ii 
mit Sorftswitch, neue |) 
Vers. m. gest. scharf. Bild 


Sposch Karte BB. LIINr 


Komp 2E 1098, 
Apple 2E kompatible, Rechner | 
64 K im 2E-Design, ohne Firmware & Ra 


80Z + 654K-Karte 
für 2E kompatible 


Apple-info 1,- DM (Porio) REN 


Il 


Hier hilft ein Programm weiter, das 
seinerseits Ihr Programm in Zeitlu- 
pe ausführt und Sie über alle Vor- 
gänge informiert. Solche „Debug- 
ger“ gibt es schon lange für den 
Apple, z.B. „Symbol Symon“, 
„The Bug“ und „Munch a Bug”. 
Jetzt können Sie aber mit BUGBY- 
TER einen Vertreter dieser Art be- 
kommen, der alle seine Vorgänger 
in den Schatten stellt. 

BUGBYTER von Computer Ad- 
vanced Ideas Inc. in Berkeley (Ka- 
lifornien) ist auf jeder „ProDOS 
Assembler Tools”-Diskette von 
Apple enthalten, und selbst wenn 
Sie den ProDOS Apple-Assembler 
nie benutzen werden, macht schon 


Role u m 
+ Kompatible 


Komp 48 

48 K. 5502 ohne Firmware 
Komp 64 

64 K, 6502, 2-80, 15er-Block 
ohne Firmware 


en 
- 
_ 
ne 1 


= 


LiY 


er 


di 


\\\N 


Komp 648 
wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen. 
Motherboard 48 K 389,- 
Be, 8 Slots, alle IC's gesockelt, 
r ver, ohne Firmware, fertig geprüft 


der BUGBYTER den Kauf lohnend. 
(Früher kostete der BUGBYTER al- 
lein $40.00) 

BUGBYTER ist ein Maschinenpro- 
gramm, das sich normalerweise ab 
$2000 im Speicher befindet. Was 
aber, wenn Ihr Code gerade hier 
liegt? Nun, Sie laden BUGBYTER 
einfach an irgendeine andere Stel- 
le, an der knapp 7K zusammen- 
hängend frei sind, denn BUGBY- 
TER läuft überall, auch in der 
Language Card. Zusätzlich benutzt 
BUGBYTER den Stack im Bereich 
von $0100 bis $011F, was aber 
selten zu Konflikten führt. 

In 6 Fenstern, deren Größe z.T. 
von Ihnen variiert werden kann, 


“Motherboard 64 K | | 
ei can In: 6502 und 399,- Hard-, Software 


VERSTEHE ih 


Alle Euer Bere Mehrwertsteuer. 6 Monate 
Garantie Versand erfolgt per NN oder Vorkasse. HI A u RN 


\V Im Viertstr. 3-13 
N 6233 Kelkheim 
2 (06198) 7523 


II Yun N) 
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sehen Sie die Register, einen 
Stackausschnitt, den gerade aus- 
geführten Code in disassemblier- 
ter Form, von Ihnen ausgewählte 
Speicherstellen beliebiger Lage, 
einen Zykluszähler und von Ihnen 
gewählte Stoppstellen (Break- 
points). Die unterste Zeile dient als 
Kommandozeile. Sie können je- 
derzeit Code disassemblieren, 
neuen Code assemblieren (eine 
Art Miniassembler ist eingebaut), 
die Register auf jeden Wert setzen 
oder sich Speicherauszüge in HEX 
oder ASCII ausgeben lassen. Sie 
können ferner ProDOS-Befehle 
(z.B. BLOAD) ausführen, in den 
Monitor oder nach Applesoft 
springen. 


Um Ihr Programm zu verfolgen, 
lassen Sie es entweder in Einzel- 
schritten (STEP) oder kontinu- 





ierich (TRACE) ablaufen, wobei 
die Geschwindigkeit über die Ta- 
statur oder einen Joystick geregelt 
werden kann. Nach jedem schritt 
werden alle Anzeigen aktualisiert. 
Unterroutinen, von denen Sie 
schon wissen, daß sie funktionie- 
ren, können Sie überspringen oder 
im Schnellgang durcheilen. Sie 
können sogar ganze Bereiche defi- 
nieren, in denen die volle Ge- 
schwindigkeit des Apple benutzt 
wird, wenn es sich um zeitkritische 
Routinen handelt (z.B. Disk-Ope- 
rationen). 


Wollen Sie sehen, wie Ihr Pro- 
gramm die ji. oder 2. Text-, Lores- 
oder Hires-Seite benutzt, können 
sie die BUGBYTER-Anzeige zeit- 
weise abschalten. Benutzt Ihr Pro- 
gramm die Tastatur, können Sie 
BUGBYTER mit dem Joystick 





TESTDERICHTE 4.4 


stoppen und starten und alle Ta- 
sten bis auf eine von Ihnen defi- 
nierte und von BUGBYTER benö- 
tigte freigeben. Da bleibt eigentlich 
kein Wunsch mehr offen. 


In Ihrem Programm können Sie 
Stoppstellen vorwählen. Transpa- 
rente Stoppstellen ändern Ihren 
Code nicht, sondern halten die 
Ausführung nur an, wenn die ge- 
wählte Adresse erreicht ist. Sie 
können vorgeben, ob dies bereits 
beim ersten Erreichen der Stopp- 
stelle geschehen soll oder erst bei 
einem wiederholten Male, wobei 
BUGBYTER dann die Zahl der tat- 
sächlichen Durchläufe anzeigt. Auf 
diese Weise können Sie z.B. 
Schleifen austesten. Echte Stopp- 
stellen modifizieren den Code und 
sind nur notwendig, wenn Sie Ihr 
Programm mit voller Geschwindig- 


keit testen wollen. Sie brauchen 
sich um die überschriebenen 
Bytes nicht zu kümmern, denn 
BUGBYTER rekonstruiert sie auf 
Befehl. 

Ich konnte Ihnen hier nur einen 
knappen Überblick über die Funk- 
tionen geben, deren Kombination 
Ihnen endlose Möglichkeiten eröff- 
nen. Im Manual ist auf ca. 40 Sei- 
ten alles genau beschrieben. Le- 
diglich zwei Fehler haben sich dort 
eingeschlichen: Auf Seite 167 muß 
die Adresse $2006 und nicht 
$7C06 lauten und auf Seite 169 
$2005 anstatt $2006. Ob Sie nun 
ein Assembleranfänger sind und 
dem Apple ab und zu auf die Bytes 
schauen wollen oder ob Sie pro- 
fessionell große Programme nach 
Fehlern durchsuchen, mit dem 
BUGBYTER haben Sie dazu ein 
wundervolles Werkzeug. 





Ausgabe und 
Eingabe mit 


TYPETERM® 


im Slot Ihres 


APPLE IVlle 


Das bedeutet: Computer- 


textverarbeitung von der 


Schreibmaschinentastatur! 
Steckerfertig ohne Umbau. 


TYPETERM- DM479,- 
Interface incl. MWSt. 
für alle BROTHER-Typenrad- 
schreibmaschinen 


Paketpreis: DM 1348,- 


Schreibmaschine 
CE-51 mit TYPETERM 


# 
QUALITÄT AUS ERSTER HAND. 


CE-61 mit TYPETERM ....... 
EM-80 mit TYPETERM ......... 
EM-100 mit TYPETERM ; 
TYPETERM-Kit für CE-50 ..... DM 468,- 
CE-25 mit TYPETERM u... anfragen 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle. 2k ROM auf der Karte f, DOS, 
PRODOS, CP/M, PASCAL Alle Features: 
Hoch-/Tiefstellen, autom. Unterstreichen, 
var. Zeichen- u. Zeilenabst,, autom. 
Papierzuführung usw, Ausführl. 
Handbuch vorab: 10,— DM auf Konto 
14770-306 PGiroA Han (Anrechnung). 


_TYPETERM ein Produkt von 
® 


DM 1787,- 
DM 2087,— 


Iinerlam Kock & Mreches GmbH 
— —  —  — Posttf., 3004 Isernhagen 4 
SlEELrenIe Ta Telefon 05139-87393 
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Beagle Graphics 


getestet von Rolf W. Becker 


Beagle Graphics ist ein hervorra- 
gendes Zeichenhilfsmittel in der 
doppelt hochauflösenden Grafik 
(560 * 192 Punkte), wobei 16 
Grundfarben und 240 Mischfarben 
(in schwarzweiß entspricht dies 
verschiedenen Schraffuren) zur 
Verfügung stehen. Die Doppelt- 
Lores-Grafik (830 x 40 und 80 x 48 
Punkte) wird ebenfalls unterstützt. 
Gezeichnet werden kann mit der 
Apple-Mouse, dem Apple Gra- 
phics Tablet, dem Joystick bzw. 
Paddle oder dem Koalapad und 
schließlich auch mit der Tastatur. 
Die Diskette enthält sowohl eine 
DOS-3.3- als auch eine ProDOS- 
Version, 


Nach dem Booten wählt man mit 
„=CGirl-D> RUN BOUBLE.PLET” 
das Modul zum Zeichnen und be- 
stimmt danach eine der obenge- 
nannten Zeichenhilfen. Das dar- 
auffolgende Haupt-Menü bietet fol- 
gende Optionen: 


— Box zeichnet Rechtecke, 

— Circle zeichnet Kreise und El- 
lipsen, 

— Draw stellt einen Bleistift zum 
Freihandzeichnen zur Verfügung, 
— Line zieht eine Linie mit dem 
Bleistift, 

— Edit bearbeitet einen festzule- 
genden Teil, 


— Fill füllt umschlossene Flächen 
mit Mustern oder Farben, 

— Paint ermöglicht das Zeichnen 
mit verschiedenen Pinselstärken, 
— Text schreibt in 21 verschiede- 
nen Schriftarten, 

— Mode wählt zwischen den Dar- 
stellungsgrößen, 

— Set Color legt die Vorder- und 
Hintergrundfarbe fest, 

— X macht den Bildschirm in wähl- 
barer Farbe frei, 

— Quit verläßt das Programm. 

Mit der Leertaste kann ein kleiner 
Teil des Bildes in Einzelpunkten 
bearbeitet werden. 


Mit dem Edit-Befehl wird zunächst 
ein Gebiet der Zeichnung festge- 
legt, das dann bearbeitet werden 
kann. Dabei besteht die Möglich- 
keit, Gebiete zu löschen, zu kopie- 
ren oder zu verschieben. Weiterhin 
können die festgelegten Teile in- 
vertiert und in horizontaler und ver- 
tikaler Richtung verdreht werden. 
Mit der ESC-Taste kehrt man in 
das Haupt-Menü zurück. 


Mit <Ctrl-F> wird der Fill-Befehl 
angesprochen, der alle Möglich- 
keiten von Farben und Strukturen 
eröffnet. Damit ist Beagle Gra- 
phics, soweit ich informiert bin, das 
Programm, mit dem die größte Pa- 
lette auf dem Apple erreicht wer- 
den kann. Vor dem Füllen emp- 
fiehlt es sich, das Bild auf Diskette 
zu speichern, um den Vorgang zu 
wiederholen, falls etwas schief- 
geht. 


Der Paint-Befehl ermöglicht im 
Gegensatz zu MousePaint, das nur 
schwarze Pinselstriche erlaubt, 
auch andere Muster. Es stehen 16 
Pinselarten zur Verfügung, wobei 
mit einem Pinselstrich in der Bild- 
schirmfarbe auch ein Radiergummi 
benutzt werden kann. 


Mit dem Text-Befehl kann in einer 
der 21 verschiedenen Schriftarten 
(auch Russisch und Griechisch), 
die auf Diskette mitgeliefert wer- 
den, geschrieben werden. Darüber 
hinaus ermöglicht das Font-Editor- 
Programm die Erstellung eigener 
Zeichensätze. 


Mit <Ctrl-D> wählt man Disket- 
tenbefehle. Doppelt-Hires-Bilder 
werden automatisch in zwei Files 
gespeichert; der zweite mit dem 
Zusatz „.AUX". Zusätzlich befin- 
det sich eine „SLIDE.SHOW" auf 
Diskette, mit der man seine Dop- 
pelt-Hires-Bilder wie in einer Dia- 
Show auf dem Bildschirm ablaufen 
lassen kann. 


Beagle Graphics beinhaltet 33 
neue Applesoft-Befehle, die alle 
sehr gut und ohne Probleme in 
eigene Programme einfügbar sind 
und auch alle ausgezeichnet funk- 
tionieren. Außerdem gibt es einige 
interessante und nützliche Utilities 
wie z.B. die Umwandlung von ei- 
genen Hires- in Doppelt-Hires-Bil- 


der (auch für Lores). Besonders 
nützlich ist DOUBLE. 
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SCRUNCH". Damit werden die 
beiden Bild-Files auf Diskette zu 
einer kleineren Datei zusammen- 
gefaßt. Man kann so mehr Bilder 
für die „SLIDE.SHOW" auf einer 
Diskette speichern. 
Applesoft-Grafikprogramme wer- 
den mit der „HGR.TO.DHGR"- 
bzw. „GR.TO.DGR"-Utilitie auto- 
matisch umgewandelt, haben dann 
also den neuen Befehlssatz. 


Ich habe das Programm mit der 
Apple-Mouse, dem Joystick und 
der Tastatur getestet. Mit der Ta- 
statur ist das Zeichnen mühselig, 
führt aber zu guten Ergebnissen. 
Mit dem Joystick ist die Handha- 
bung sehr einfach, doch meiner 
Ansicht nach auch sehr ungenau, 
vor allem, wenn man exakt positio- 
nieren will. Am besten konnte ich 
mit der Apple-Mouse zeichnen. 


Zwar gibt es hier nicht die Möglich- 
keit, wie bei MousePaint alle Verar- 
beitungsmöglichkeiten über Fen- 
ster anzuklicken — die Befehle wer- 
den über Einzeltasten wie „E" für 
Edit eingegeben -, doch die Um- 
stellung fällt nicht schwer. Die Re- 
sultate sind hervorragend. Jeder 
Punkt der Zeichnung ist genau er- 
reichbar; kleinste Details können 
exakt eingezeichnet werden. 
Leider war die entsprechende Trei- 
ber-Software für die Doppelt-Hires 
noch nicht lieferbar (es wird „Triple 
Dump” von Beagle Bros Inc ange- 
boten). Deshalb konnte ich noch 
keine Bilder drucken. 
Hardware-Voraussetzungen: Ap- 
ple IIc oder |le mit erweiterter 80- 
Zeichen-Karie. 

Erhältlich ist dieses Programm für 
ca. DM 240, - bei einschlägigen Im- 
porteuren. 


Finanzbuchhaltung 
für CPyM-80-Systeme, z.B. Apple, Proteus, TRS-80; 
für Commodore CBM 8032/4032 mit Diskettenlaufwerk. 


Anlagenbuchhaltung 
{unter anderem für Abschreibungsberechnung) 
für CP/M-80-Systeme, z.B. Apple, Proteus, TRS-80. 


Die CP/M-Programme sind auch unter MP/M lauffähig. 


Bitte geben Sie bei Anfragen Ihren 
Computertyp und die Ausbaustufe an. 


Programmierbüro Kurt Kastner, Nikolausstr. 3 


7500 Karlsruhe- Rüppurr 


Telefon 07217/884290 
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300 Baud Modem , nech CCITTY.21 a 
m. FTZ-Nr. 18. 13. !917.00, Bebühren- und 
anmeldefrei, Y24/RS-232 Standard- Schnittst. nur 


ELEKOMMUNIKAT 


DM 298,00 
PLETT - PAKET 


geeignet für Apple //+ und Apple //e: 
l 
1 


Dataphon s2 Id, 
Anschlußkabel: V.24 zum Apple II-Game-I/O, 





I Terminalprogramm: "HIB Modem -Transfer" nur DM 398,00 

für Anni 71 + und Annie 77 en Behuse DM 498,00 

w.o, jedoch für Apple //c DM 969,00 

TOSHIBA Spitzenlaufwerke zum rpreis! 

ND 06-D, 2x 80 Track, 640 K-Byte formatiert DM 549,00 

DISK-DOPPEL-STATION (APPLE //+ APPLE //e 

2x ND 06-D im Geh. + Auto-Patchcontr., 1,2 MB DM 1698,00 

AUTO-PATCH-CONTROLLER DM 298,00 

IC-Test-Karte (Testet ca. 500 verschiedene IC's) DM 398,00 
ROTHER-Matrixdrucker , die Super-Drucker! 

M- 1009 (Matrixdrucker , RS-232 + Centronics) DM 698,00 

M- 1009 anschlußfertig an: 

Apple //ce (mit Drucker-Kabel) DM 798,00 

Apple //e (mit Graphik- Interface und Kabel) DM 898,00 


Alle Preise inclusive der gesetzlichen Mehrwertsteuer. 
Berechnung der Versandkosten erfolgt nach Entfernung und Gewicht. 


Fordern Sie noch heute unsere Gratispreisliste anfWiederverkäufer bitte nur 


schriftlich anfragen (Kopie der Gewerbeanmeldung beilegen!). 
Ss HiB Computerladen 
Auß. Bayreuther Str. 72 - Telefon: 0911 / 515 939 


Postfach 21 01 25 - Telex: 17-911 8253 
8500 Nürnberg 21 - Teletex: 2526 - 911 8253 


Einem Teil dieser Ausgabe liegt ein Prospekt der Firma Interdata 
GmbH, Singen bei. 
Wir bitten unsere Leser um Beachtung. 


Vergriffene Peeker-Hefte 


Abonnenten können vergriffene 
Peeker-Hefte als Heft-Kopien er- 
werben. Inlandspreis DM 10,- inkl. 
Versandkosten. Auslandspreis DM 
12,- inkl. Versandkosten (Luftpost- 
zusendung extra). 

Z. Zt. sind vergriffen Heft 1/1984 
und Heft 1-2/1985 
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APPLEI 
RSCAL 


AFFLE || PASCAL 


APPLE. Betriebssystem und 
Sprache 


Erstes deutsches Referenzwerk sämtlicher Befehle 
und Systemroutinen von Apple II Pascal — mit Adden- 
dum einschließlich Version Pascal 1.2! 


Gültig für Apple II, II Plus, Ile einschließlich der 
128K/80 Zeichen-Konfiguration. 


Betriebssystem kommentiert ausführlich und in 
Deutsch Funktion und Benutzung der fast 60 System- 
routinen’des Apple II Pascal Betriebssystems. 


Sprache ist das vollständige, deutsche Referenzwerk 
der „Apple Pascal“-Programmiersprache mit u.a. Infor- 
mationen über professionelle Pascal-Programmierung, 
Turtlegraphics, Programmbibliothek etc. 


Apple II Betriebssystem, NVorbseene 
q: Addendum Pascal 1.2, ein 
212 Seiten, DM 49,- Zusatz zum Buch „Betriebssystem“ für 1.2-Benutzer in 
Apple II Sprache, Deutsch. 
216 Seiten, DM 39, - 


Pascal 1.2 Addendum, 112 Seiten, | 
DMS36= te-wi Verlag GmbH 


= 
Theo-Prosel-Weg 1 [eg 
8000 München 40 


„Nach Unterlagen von Apple Deutschland hergestellt 


Weiterführende Literatur... 


1 Das NR | | LOGO - 
Me | ea Jeder k i 
"se APPLEII-Handbch ae Da 
a (L. Poole) | Buch des Jahres in den USA. Für die 
7 Erst mit Hilfe dieses Leitfadens werden Sie Hl Computer APPLE II, C-64, IBM PC, ATARI 
Ü Ihren Apple Il erfolgreich einsetzen, denn bis 520 ST, TI-99 ne GPE@ 464/664. 
4 Text und Bildmaterial gehen weit über das Hochwertiges Textbuch für Logo-Kurse für 
Zu hinaus, was herstellerseitig an Literatur ER end oeberäich 
ee angeboten wird, 


Ge Em 384 Seiten, A4, DM 59,- 
= 7 Neu überarbeitet und jetzt um die spezifi- |i 
91 schen Eigenheiten der Modelle He und IIc 


== erweitert. 500 Seiten, Softcover, DM 66,- 


APPLE IIPASCAL - 
Eine praktische Anleitung 
(A, Luehrmann, H. Peckham) 


Unentbehrlich für alle, die die Programmier- 


sprache PASCAL lernen wollen und 
Zugang zu einem Apple-Computer haben. 
544 Seiten, Softcover, DM 59,— 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia- 
gramme — animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 


200 Seiten, Softcover, DM 49,- 


Computer für Kinder Apple Maschinensprache 


(Sally Greenwood Larson) Für BASIC-Programmierer der einfachste 
Ein Buch für Kinder. ihre Lehrer Zugang zur Muttersprache des Apple. Wesent- 
und Eltern, en: te | lich schnellere Maschinenprogramme, direkte 
„Computer für Kinder“ richtet Manipulation des Mikroprozessors 6502 im 
sich an Kinder im Älter von 8 bis Apple - als Brücke dorthin benötigt dieses 
13 Jahren. für deren Interesse an Buch nur die drei BASIC-Befehle, POKE, 
Computern dieses Buch bewußt @| | CALL, PEEK. D. Inman/K. Inman. DM 49, — 
geschrieben wurde re ig —— — 
Unterhaltsam und leicht verständlich en NEU: REPARATURANLEITUNG 
A4 quer. Fadenheftung. DM 29.80 DM 29,80 APPLE II, I PLUS 


im 4298 


Noch im Programm: 
6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 


NOT T 
Macintosh Programmier-Handbuch DM 59,- 





Mann 








He LEE IR 


AP 13 und AP 17 
RAM-Karten zum Einsatz als Pseu- 
dodisk unter CP/M, USCD und 


APPLE-DOS. Speichergröße von. 


64 kByte bis 256 kByte. 
Bestell-Nr.: A 1013 a-b 
A1017 a-d 


AP 33 

RAMDISK der heuen Generation. 
Für besonders speicherintensive 
Arbeiten ist der Aushau in Stufen 
von 64 kByte bis 1MByte möglich. 
Bestell-Nr. A 1033 








AP 14 

Floppy-Controller für ale Anwen- 
dungsfälle. 10 Laufwerke können 
gleichzeitig angeschlossen werden. 
4 x 8" DSDD, 4 x 5\%" DSDD und 


zwei Apple-Standardlaufwerke. 
Maximal ca. en im Direktzu- 
griff. 


Bestell-Nr.: A 1014 





ei jetzt 512 k-RAM 


AP2O 

INTEMEX mit 68 000 CPU und 128 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech- 
ten 16 bit-Rechner. Eine Zusatzkarte 


(AP 26) ermöglicht einen Arbeitsspei- 


cher bis zu einem MByte und an Soft- 
ware gibt es einiges. 2.B.,stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung: 
Bestell-Nr. A 1020 








AP1S 

12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 av sec Wandlungs- 
zeit. Eingangsspannung +10 V. Ein 
schneller Wandler für extrem 
schnelle Anwendungen. 
Bestell-Nr.::A 1019 





HOFREcHe 


NEU! 8 MHz Takt 


AP22 

INTEMEX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22”. Mit dieser Karte wird Ihr 
APPLE I zum 2.2, schnellsten CP/M- 
Computer, und in- Verbindung mit 
dem SPACE 84 erhalten Sie Compu- 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung. 
Bestell-Nr. A 1022 


Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE II oder Kompatiblen 
optimalnutzen wollen. DetaillierteSchaltpläne, Bauteilelisten und Benutzungshinweise 
zu allen IBS-Interfaces finden Sie jetztin einem Buch vereint. Ausführliche Abhandlun- 


welten aber auch über die Grenzen des APPLE Il-Systems bestimmen den Wert dieses 


\ 
wo‘ 0 gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software- 


Buches. 


Für nur DM 8,00 erhalten Sie dieses Buch ab sofort bei Ihrem Comiputerfächhankler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB: 





x 
” 
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COMPrPULTERTecHNi 





Olper Straße 10 - 4800 Bielefeld 14 - Tel.: 0521/444032 - W. Germany 
1011 Rose Marie Lane 16 - Stockton CA 95207 - Tel. 209/473 - 7473 USA 





